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线 、 交 易 量 柱状 (bar) 图 等 指标 ， 而 这 些 指标 的 指示 作 


资 的 人 员 提 供 强 有 力 的 量化 投资 支撑 。 


算法 是 大 数据 分 析 的 灵魂 ， 好 的 算法 能 够 简化 问题 的 求解 ， 并 且 能 够 从 大 数据 的 海洋 里 找到 最 有 价值 的 信息 ， 以 提高 


于 优化 求解 问题 方面 ， 学 术 味 浓 。 而 本 书 则 是 通过 大 数据 ， 采 


前 言 
新 高 ， 吸 引 了 大 批 的 投资 者 将 更 多 的 资金 投入 股市 ， 由 此 使 得 股票 优化 预测 成 为 广大 投资 者 关注 的 焦点 。 投 资 者 较 多 地 查看 炒股 软件 提供 的 QACD 曲 线 、KDJ 曲 
已 褪去 了 往日 的 光鲜 ， 本 书 正 是 基于 此 背景 而 编写 。 本 书 以 MATLAB 2015b 为 工具 ， 采 用 机 器 学 习 算 法 研究 股票 趋势 ， 可 以 给 投资 者 和 研究 投 


的 群 智能 算法 。 群 智能 算法 较 多 地 应 


户 的 工作 效率 。 本 书 使 用 的 算法 区 别 于 常 


机 器 学 习 算法 对 数据 内 在 规律 进行 学 习 ， 


信息 ， 从 而 给 投资 者 提供 最 有 价 


户 根本 无 须知 道 机 器 学 习 算 法 的 黑匣子 ， 就 能 得 到 90% 的 有 


值 的 信息 。 因 此 金融 大 数据 算法 具有 较 大 的 实际 应 用 价值 。 

市 场 上 的 金融 量化 投资 分 析 方法 ， 很 少 分 析 与 应 用 BP 神 经 网 络 、RBF 神 经 网 络 、Hopfield 神 经 网 络 、 马 尔 可 夫 (Markov) 链 、 灰 色 理论 、 指 数 平滑 、 支 持 向 量 机 SVM、 贝 叶 斯 (Bayes) 网 络 等 方 
法 。 本 书 正 是 基于 这 样 一 个 出 发 点 ， 从 机 器 学 习 算法 出 发 ， 采 用 MATLAB 仿 真 软件 ， 对 金融 大 数据 进行 仿真 分 析 ， 并 且 给 出 了 全 部 的 可 执行 代码 ， 极 大 地 丰富 了 MATLAB 算 法 应 用 ， 并 且 可 以 让 读者 了 解 不 
同 的 算法 原理 及 求解 流程 ， 从 而 真正 掌握 MATLAB 人 金融 算法 分 析 。 

本 书 所 有 案例 均 采 用 MATLAB 进 行 设计 ， 针 对 不 同 的 工程 背景 ， 采 用 了 不 同 的 算法 对 涉及 案例 进行 求解 ， 让 读者 真正 理解 算法 实质 ， 从 而 将 这 些 算法 思想 更 好 地 应 用 于 实际 的 金融 分 析 与 投资 中 。 本 书 
以 机 器 学 习 算 法 应 用 为 主 ， 做 到 了 理论 和 算法 相 结合 ， 详 解 设计 思路 和 设计 步骤 ， 向 读者 展示 了 如 何 运 用 MATLAB 进 行 算法 开发 和 设计 。 

值得 说 明 的 是 ， 很 多 读者 可 能 并 不 关注 算法 本 身 的 原理 ， 只 需要 采用 该 算法 解决 自己 的 课题 即 可 ， 那 么 本 书 也 是 很 好 的 选择 。 本 书 将 核心 算法 代码 全 部 写成 了 可 调用 的 子 函数 脚本 文件 ， 读 者 只 需要 查 


看 主 程序 代码 ， 进 行 数据 更 改 和 参数 设置 等 即 可 运行 、 求 解 。 本 书 有 着 最 精华 、 


本 书 特色 


1. 内 容 讲 解 不 枯燥 


最 通俗 易 懂 的 算法 剖析 过 程 ， 希 望 广大 读者 能 够 学 有 所 成 。 


本 书 结合 相关 理论 实际 ， 抽 出 和 算法 相关 的 理论 作为 支撑 ， 通 过 求解 流程 及 算法 迭代 过 程 ， 让 读者 容易 理解 并 且 掌 握 。 


2. 全 书 覆盖 面 / 


本 书 涵盖 了 MATLAB 基 础 知识 、 高 级 应 | 
数 平滑 、 支 持 向 量 机 SVM、 贝 叶 斯 (Bayes) 


的 程序 。 


3 .循序渐进 ， 由 浅 入 深 


本 书 从 算法 原理 与 求解 流程 出 发 ， 加 


4 真实 案例 ， 随 学 随 


本 书 是 一 本 注重 实践 的 书 ， 书 中 有 大 量 篇 幅 


5. 语 言 通 俗 易 懂 


本 书 选择 了 历年 的 上 证 指数 数据 进行 分 析 ， 并 且 对 于 趋势 量化 投资 指标 和 


、 时 间 序 列 数 据 处 理 、 量 化 投资 趋向 指标 、 量 化 投资 反 趋向 指标 、BP 神 经 网 络 、RBF 神 经 网 络 、Hopfield 神 经 网 络 、 马 尔 可 夫 (Markov) 链 、 灰 色 理论 、 指 
网 络 、Pareto 多 目标 优化 分 析 等 内 容 。 针 对 分 类 预测 和 优化 等 问题 ， 本 书 采 上 


了 不 同 的 算法 进行 设计 ， 初 学 者 通过 阅读 本 书 ， 可 以 开发 出 适用 于 解决 自己 问题 
以 程序 验证 ， 通 过 算法 代码 ， 可 以 反 过 来 去 理解 算法 原理 中 所 涉及 的 公式 ， 做 到 逐步 地 引导 读者 去 认识 和 掌握 算法 的 思想 。 
在 了 MATLAB 算 法 解决 实际 问题 的 案例 中 。 读 者 只 需要 稍 加 修改 这 些 案 列 ， 即 可 | 己 的 项 目 或 课题 上 ， 从 而 实现 问题 的 求解 。 
反 趋势 量化 投资 指标 均 给 出 了 最 底层 的 可 执行 代码 。 另 外 ， 本 书 还 绘制 了 每 个 指标 随 上 证 指数 的 变化 图 ， 以 加 深 读 者 的 理解 。 


6. 图 示 丰 富 ， 容 易 理 解 
本 书 所 有 案例 中 的 配 图 相当 丰富 ， 通 过 前 后 的 对 比 图 ， 读 者 能 很 快 地 掌握 知识 点 。 
本 书 内 容 及 体系 结构 


第 1 篇 MATLAB 常 用 算法 应 用 设计 (第 1~5 章 ) 


本 篇 介绍 了 MATLAB 常 F 


些 案例 解决 一 些 常见 问题 ， 如 函数 优化 预测 、 拟 合 回 


第 2 篇 “MATLAB 机 器 学 习 算 法 应 用 


算法 , 包括 MATLAB 入 [] 与 提 高 、MATLAB 高 4 
归 、 分 类 、 股 票 投 资 趋向 指标 、 量 化 投资 


设计 (第 6~15 章 ) 


本 篇 涉及 面 较 广 ， 列 举 了 BP 神经 网 络 工 
上 证 指数 预测 、 指 数 平滑 下 的 上 证 指数 预测 、 支 持 向 量 机 


生 的 需要 。MATALB 高 级 算法 应 F 


本 书 读者 对 象 


: MATLAB 量 化 投资 开发 人 员 ; 


・ MATLAB 人 金融 算法 爱好 者 ; 


“ 刚 入 职 的 初中 级 程序 员 ; 


“ 大 、 中 专 院 校 师 生 ; 


“ 相关 培训 学 校 的 学 员 ; 


・ MATLAB 爱 好 者 ; 


， 向 更 加 广泛 、 更 加 


体 、 更 多 应 上 


应 用 、 时 间 序 列 


x 


数据 处 理 、 量 化 投资 趋向 指标 、 量 化 投资 反 趋 向 指标 等 案例 ， 通 过 该 类 较为 常用 的 算法 引入 ， 读 者 可 以 应 用 这 


趋向 指标 等 ， 经 过 这 些 内 容 的 学 习 ， 既 适应 了 不 同 的 读者 ， 也 为 第 2 篇 的 引入 打下 了 坚实 的 算法 基础 。 


箱 上 证 指数 预测 、BP 神 经 网 络 多 指标 预测 、RBF 神 经 网 络 多 指标 预测 、Hopfield 神 经 网 络 多 指标 预测 、 马 尔 可 夫 (Markov) 链 上 证 指数 预测 、 灰 色 理论 下 的 
SVM 下 的 涨 跌 预 测 、 贝 叶 斯 (Bayes) 网 络 多 指标 预测 、Pareto 多 目标 优化 分 析 等 ， 通 过 案例 分 析 ， 结 合算 法 理论 和 程序 代码 ， 真 正 地 适合 广大 师 
发 展 ， 让 读者 真正 掌握 算法 核心 ， 开 发 和 设计 出 


己 的 可 移植 性 代码 。 


* MATALB 相 关 从 业 人 员 。 


本 书 配套 资源 及 获取 方式 


本 书 涉及 的 源 代码 文件 等 配套 学 习 资源 需要 读者 自行 下 载 。 请 读者 登录 机 械 工 业 出 版 社 华章 公司 的 网 站 www.hzbook.com， 然 后 搜索 到 本 书页 面 ， 按 照 页 面 上 的 说 明 进 行 下 载 即 可 。 读 者 也 可 以 
在 http://halcom.cn 社 区 的 “量化 投资 指标 ”版 块 下 载 。 


本 书 作者 


本 书 由 吴 婷 和 余 胜 威 主笔 编写 。 其 他 参与 编写 的 人 员 有 李 小 妹 、 周 晨 、 桂 凤 林 、 李 然 、 李 莹 、 李 玉 青 、 倪 欣欣 、 魏 健 蓝 、 夏 雨晴 、 萧 万 安 、 余 慧 利 、 袁 欢 、 占 俊 、 周 艳 梅 、 杨 松 梅 、 余 月 、 张 广 龙 、 张 
亮 、 张 晓 辉 、 张 雪 华 、 赵 海 波 、 赵 伟 、 周 成 、 朱 森 。 


笔者 结合 自己 在 工作 和 学 习 期 间 掌握 的 各 类 算法 ， 以 及 出 于 对 股票 投资 和 MATLAB 的 爱好 ， 通 过 参阅 大 量 的 相关 资料 ， 精 心 装备， 编写 了 本 书 。 本 书 在 写作 过 程 中 参考 了 一 些 笔者 平时 积累 的 资料 ， 部 
分 资料 来 自 于 前 辈 们 的 著作 ， 在 此 向 这 些 前 辈 们 表示 深 深 的 敬意 和 感谢 ! 由 于 无 法 联系 到 原作 者 ， 所 以 写作 时 也 无 法 一 一 征求 意见 。 如 果 有 不 当 之 处 ， 请 联系 笔者 或 者 本 书 编辑 。 


读者 在 阅读 本 书 的 过 程 中 若 有 疑问 ， 可 以 在 MATLAB 中 文 论坛 的 本 书 交 流 版 块 提 问 ， 也 可 以 发 邮件 到 hzbook2017@163.com， 我 们 会 及 时 答复 。 


编者 


国内 非常 知名 的 MATLAB&Simulink 技 术 交 流 平台 一 一 MATLAB 中 文 论坛 (www.ilovematlab.cn) 联合 本 书 作者 和 编辑 ， 一 起 为 您 提供 与 本 书 相关 的 问题 解答 和 MATLAB 技 术 支 持 服务 ， 让 您 获得 极 
佳 的 阅读 体验 。 请 随时 登录 MATLAB 中 文 论坛 ， 提 出 您 在 阅读 本 书 时 产生 的 疑问 ， 作 者 和 相关 编辑 将 定期 为 您 解答 。 您 对 本 书 的 任何 建议 ， 也 可 以 在 论坛 上 发 帖 ， 以 便于 我 们 后 续 改进 。 您 的 建议 将 是 我 们 
创造 精品 的 最 大 动力 和 源泉 。 


“在 线 交 流 ， 有 问 有 答 ”网 络 互动 参与 步骤 : 


(1) 在 MATLAB 中 文 论坛 www.ilovematlab.cn 上 注册 一 个 会 员 账号 并 登录 。 


(2) 完成 论坛 账户 邮箱 验证 ， 在 论坛 “MATLAB 读 书 频道 : 与 作者 面对面 交流 ”版 块 上 找到 本 书 版 块 ， 如 图 1 所 示 。 


MATLAB 读书 频道 : 与 作者 面对面 交流 


(MATLAB N 个 实用 技 I5 一 MATLAB 中 文 论坛 精华 总 结 》 (MATLAB GUI 设计 学 习 手 记 》 含 第 二 、 三 版 (1) 

主题 ; 371, 帖 数 ; 2400 € 主題: 2722, 帖 数 : 1 万 

(MATLAB 有 个 实用 技 I5 一 MATLAB 中 .… 昨天 16:18 大 木 木 青 争 (Matlab GUI 设计 学 习 手 记 》 秆 .… 29 $3458 geital2 
(MATLAB 与 控制 系统 仿真 实践 》 (ASH ) 《金融 数量 分 析 一 基于 MATLAB 编程 》 会 第 二 、 三 版 (3) 

主题 ; 140, 帖 数 ; 6227 主题 196, 帖 数 ; 7812 

【视频 15 】 控 制 系统 的 PID 控 市 器 .… 3 天 前 liar (£&8:128 245 — E TMATLABARIES ... 5 分 神前 wsdjs 
《图 论 算法 及 其 MATLAB 实现 》 (MATLAB 神经 网 络 30 个 案例 分 析 》 

主題 : 112, 帖 数 ; 1021 主题 ; 3287, 帖 数 ; 1 万 

图 论 算法 及 其 Matlab 实 现 书 中 第 9 .… 昨天 21:52 liubin010 李洋 老师 ， 你 好 ! 第 13 章 GA 参数 寻 ,,, 前 天 13:18 qq496830205 


图 ! “MATLAB 读 书 频道 : 与 作者 面对面 交流 ”版 块 


(3) 进入 书籍 版 块 ， 发 帖 提 问 ， 与 作者 在 线 交 流 。 


(4) 其 他 增值 服务 。 读 者 可 以 通过 本 书 的 “在 线 交流 ， 有 问 有 答 ” 版 块 下 载 本 书 源 程序 等 教学 资源 ， 也 可 以 查看 本 书 的 相关 勘误 信息 ， 如 图 2 所 示 ( 因 本 书 版 块 在 图 书 出 版 后 才能 申请 成 功 ， 所 以 这 里 
用 已 经 出 版 的 图 书 示 意图 来 代替 ) 。 


会 [我 分 享 ] 《MATLAB 优 化 算法 案例 分 析 与 应 用 》 随 书 附 带 程序 下 载 .2 3 4 5 6..58 
会 [我 分 享 ] 《MATLAB 优 化 算法 案例 分 析 与 应 用 》 随 书 课 件 PPT 下 载 ...2 3 4 5 6..60 


会 [我 分 享 ] 《MATLAB 优 化 算法 案例 分 析 与 应 用 》 书 籍 勘误 


2 “在 线 交 流 ， 有 问 有 答 ” 版 块 增值 服务 


Ins] 


第 1 篇 MATLAB 常 用 算法 应 用 设计 


MATLAB 入 门 与 提高 


MATLAB 高 级 应 用 


时 间 序 列 数据 处 理 


量化 投资 趋向 指标 


量化 投资 反 趋向 指标 


第 1 章 ”MATLAB 入 门 与 提高 


本 书 所 有 程序 以 及 软件 界面 均 以 MATLAB 2015b 为 数据 处 理 分 析 软件 ，MATLAB 2015b 用 户 界面 如 


E 


图 1-1 所 示 。 


—UUNN Wa 


5996x5 double 
420x5 double 

1571x1 double 
1568x1 double 
1560x1 double 
16x98 double 

15x104 double 


大 小 
5996x5 
420x5 
1571x1 
1568x1 
1560x1 
16x98 
15x104 


最 小 值 

15 

1.9744e «03 
1.8634e+03 
1.8634e+03 
1.8634e+03 
1.8634e+03 
1.8634e+03 


最 大 值 


857132800 
857132800 
5.1664e+... 
5.1664e+.… 
5.1319e+.… 
5.1664e+.… 
5.1319e+.… 


均值 


1.0503e+.… 
4.8899e+.… 
2.5914e+.… 
2.5876e+.… 
2.5751e+.… 
2.5876e+.… 
2.5751e+.… 


1.9764e+.… 
1.6753e+.… 
3.0327e+.… 
2.9624e+.… 
2.6700e+.… 
2.9624e+.… 
2.6700e+.… 


命令 行 窗口 
3. 2631 
3. 2795 
3. 2485 
3. 2412 
3. 3024 
3. 2861 
3. 2909 
3. 3493 


建议 读者 将 MATLAB 界 面 调整 到 如 图 1-1 所 示 的 布局 界面 ， 将 有 助 于 提高 用 户 程序 设计 调试 效率 。 左 侧 上 面 为 工作 区 ， 方 便 用 户 进行 查看 数组 的 类 型 及 数值 大 小 ; 左 侧 下 面 为 


4.0842 
4.1948 
4.2873 
4.2171 
4.2936 
4.3985 
4.4145 
4.3937 


Q ocho 和 a» é > P 


图 1-1 


MATLAB 2016b 用 户 界 面 


码 ， 或 者 直接 在 脚本 文件 中 写 好 再 运行 ; 右 侧 为 用 户 当前 文件 夹 ， 即 程序 放置 的 文件 夹 ， 用 户 可 以 选择 不 同 路 径 下 的 程序 文件 。 


HH data000001.mat 
f) ysw5 1 ACCER.m 
E) ysw5_ 2 ADTM.m 
E) ysw5 3 BB.m 


命令 行 


行 窗 | 


口 ， 用 户 可 以 写 代 


MATLAB 2015b 是 最 后 一 款 支 持 Windows 32 位 的 软件 。 更 高 版 本 的 MATLAB 将 更 多 地 应 用 于 Windows 的 64 位 操作 系统 上 。 本 书 所 涉及 程序 均 基 于 MATLAB 2015b 软 件 开发 ， 笔 者 的 笔记 本 电脑 为 32 


位 Microsoft Windows 7 旗舰 版 操作 系统 。 


随 着 MATLAB 工 具 箱 的 不 断 增强 ， 下 面 来 看 看 MATLAB 2015b 的 工具 箱 版 本 ， 具 体 如 下 : 


MATLAB 版 本 : 8.6.0.267246 (R2015b) 
TT 许可 证 编号 : 123456 


作 系统 : Microsoft Windows 7 旗舰 版 Version 6.1 (Build 7600) 
Java 版 本 : Java 1.7.0 60-b19 with Oracle Corporation Java HotSpot(TM) Client VM mixed mode 


MATLAB 版 本 8.6 (R2015b) 
Simulink 版 本 8.6 (R2015b) 

Aerospace Blockset 版 本 3.16 (R2015b) 
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DO Qualification Kit 版 本 3.0 (R2015b) 
DSP System Toolbox 版 本 9.1 (R2015b) 
Data Acquisition Toolbox 版 本 3.8 (R2015b) 
Database Toolbox 版 本 6.0 (R2015b) 
Datafeed Toolbox 版 本 5.2 (R2015b) 
Econometrics Toolbox 版 本 3.3 (R2015b) 

Embedded Coder 版 本 6.9 (R2015b) 

Filter Design HDL Coder 版 本 2. (R2015b) 
Financial Instruments Toolbox 版 本 2.2 (R2015b) 

Financial Toolbox 版 本 5.6 (R2015b) 

Fixed-Point Designer 版 本 5.1 (R2015b) 

Fuzzy Logic Toolbox 版 本 2.2.22 (R2015b) 
Gauges Blockset 版 本 2.0.9 (R2015b) 
Global Optimization Toolbox 版 本 3.3.2 (R2015b) 
HDL Coder 版 本 3.7 (R2015b) 


HDL Verifier 版 本 4.7 (R2015b) 
IEC Certification Kit 版 本 3.6  (R2015b) 
Image Acquisition Toolbox 版 本 4.1 (R2015b) 
Image Processing 版本 9.3 (R2015b) 
Instrument Control Toolbox 版 本 3.8 (R2015b) 
LTE System Toolbox 版 本 2.1 (R2015b) 
MATLAB Coder 版 本 3.0 (R2015b) 
MATLAB Compiler 版 本 6.1 (R2015b) 
MATLAB Compiler SDK 版 本 6.1 (R2015b) 
MATLAB Report Generator 版 本 4. (R2015b) 
Mapping Toolbox 版 本 4 (R2015b) 
Model Predictive Control Toolbox 版 本 5. (R2015b) 
Model-Based Calibration Toolbox 版 本 5. (R2015b) 
Neural Network Toolbox 版 本 8.4 (R2015b) 
OPC Toolbox 版本 4.0 (R2015b) 
Optimization Toolbox 版 本 7.3 (R2015b) 
Partial Differential Equation Toolbox 版 本 2.1 (R2015b) 
Phased Array System Toolbox 版 本 3.1 (R2015b) 
Polyspace Bug Finder 版本 2.0 (R2015b) 
Polyspace Code Prover 版本 9.4 (R2015b) 
RF Toolbox 版本 2.17 (R2015b) 
Robotics System Toolbox 版本 1.1 (R2015b) 
Robust Control Toolbox 版本 6.0 (R2015b) 
Signal Processing Toolbox 版本 7.1 (R2015b) 
SimBiology 版本 5.3 (R2015b) 
SimDriveline 版 本 2.9 (R2015b) 
SimElectronics 版 本 2.8 ^ (R2015b) 
SimEvents 版 本 4.4.1 (R2015b) 
SimHydraulics 版 本 1.17 (R2015b) 
SimMechanics 版 本 4.7  (R2015b) 
SimPowerSystems 版 本 6.4 (R2015b) 
SimRF 版本 4.5 (R2015b) 
Simscape 版 本 3.14 (R2015b) 
Simulink 3D Animation 版 本 7.4  (R2015b) 
Simulink Code Inspector 版 本 2.4 (R2015b) 
Simulink Coder 版 本 8.9 — (R2015b) 
Simulink Control Design 版 本 4.2.1 (R2015b) 
Simulink Design Optimization 版 本 2.8 (R2015b) 
Simulink Design Verifier 版 本 3.0 (R2015b) 
Simulink Desktop Real-Time 版 本 5.1 (R2015b) 
Simulink PLC Coder 版 本 2.0 (R2015b) 
Simulink Real-Time 版 本 6.3 (R2015b) 
Simulink Report Generator 版 本 4.2 (R2015b) 
Simulink Test 版本 1.1 (R2015b) 
Simulink Verification and Validation 版 本 3.10 (R2015b) 
Spreadsheet Link EX 版 本 3.2.4 (R2015b) 
Stateflow 版 本 8.6 (R2015b) 
Statistics and Machine Learning Toolbox 版本 10.1 (R2015b) 
Symbolic Math Toolbox 版 本 6.3 (R2015b) 
System Identification Toolbox 版 本 9.3 (R2015b) 
SystemTest 版 本 2.6.10 (R2015b) 
Trading Toolbox 版本 2.2.1 (R2015b) 
Vehicle Network Toolbox 版本 3.0 (R2015b) 
Vision HDL Toolbox 版 本 1.1 (R2015b) 
Wavelet Toolbox 版 本 4.15 (R2015b) 
其 中 金融 工具 箱 版 本 如 下 : 
Financial Instruments Toolbox 版 本 2.2 (R2015b) 
Financial Toolbox 版 本 5.6 (R2015b) 
这 也 是 最 后 一 个 支持 Windows 32 位 操作 系统 的 最 高 MATLAB 工 具 箱 版 本 。 
11 ”矩阵 运算 
MATLAB 俗 称 和 矩阵 实验 室 ， 其 矩阵 运算 功能 简单 易 用 ， 且 执行 效率 颇 高 。 具 体 的 MATLAB 和 矩阵 运算 如 下 。 
(1) 和 矩阵 的 加 减法 
具体 的 MATLAB 程 序 代码 如 下 : 
clc,clear,close all s 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
warning off E 
feature jit off 5 
>> x-rand(2) 
m 
0.8147 0.1270 
0.9058 0.9134 
»» y-rand(2) 
y- 
0.6324 0.2785 
0.0975 0.5469 
>> xty 
ans — 
1.4471 0.4055 
1.0033 1.4603 
>> x-y 
ans — 
0.1824 -0.1515 
0.8083 0.3665 


(2) 矩阵 的 点 乘除 法 运算 


具体 的 MATLAB 程 序 代码 如 下 : 
2> mty 
ans = 
0.5152 0.0354 
0.0884 0.4995 
» xy 


1.2884 0.4560 
9.2863 1.6702 


(3) 矩阵 的 点 开 方 运算 


具体 的 MATLAB 程 序 代码 如 下 : 


0.7788 0.2194 
1.5653 0.9493 


0.6638 0.0161 
0.8205 0.8343 


0.9026 0.3564 
0.9517 0.9557 


(4) 矩阵 求 逆 运算 


需要 注意 的 是 ， 矩 阵 求 逆 运 算 ， 需 要 矩阵 为 方 阵 ， 即 NxN 和 矩阵 。 


>> inv(x) 
ans = 


1.4518 -0.2018 
-1.4398 1.2950 


»» inv(x*y) 
ans = 


3.7499 -1.4782 
-3.3015 2.6316 


MATLAB 的 矩阵 运算 效率 是 很 高 的 ，MATLAB 开 发 也 是 针对 高 效 和 矩阵 计算 而 设计 的 。MATLAB 的 使 用 和 基本 的 高 等 数学 运算 相 匹配 ， 这 也 大 大 简化 了 软件 学 习 的 难度 。 


12 ”放大 局 部 视图 


由 于 多 个 图 形 在 一 个 窗口 一 起 显示 的 时 候 ， 肉 眼 很 难 分 辨 细微 的 差异 ， 因 此 需要 在 同一 个 图 形 上 放大 局 部 视图 ， 如 何 进行 局 部 视图 的 放大 显示 呢 ? 


具体 的 密集 图 形 生 成 代码 如 下 : 


clc,clear,close all % 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
warning off を 消除 警告 
feature jit off % 加 速 代 码 运行 


x-20:0.01:4*pi; 

yl = sin(x); 

y2 = sin(1.01*x); 
figure(1), 

plot (x,yl,'r'); 
hold on 
plot (x, y2, 'b'); 
grid on 


IR] 


SS 
b 


运行 程序 得 到 如 图 1-2 所 示 的 攻 


A 1 IN LL 
J A | NST | 
/ 1 し 1 YNT | 


> 
x 
图 1-2 ”两 个 正弦 波 
在 x 取 值 0 ~ 4 时 ， 两 个 正弦 波 基本 难 区 分 ， 这 时 需要 根据 实际 图 形 ， 放 大 原 图 的 局 部 区 域 ， 达 到 图 形 清晰 化 的 目的 。 具 体 的 MATLAB 代 码 如 下 : 
& 参考 本 代码 ， 请 引用 并 注 明 + ; 


余 胜 威 ) 
、 清 理工 作 区 、 关 闭 显示 图 形 


Clc,clear,close all 
warning off 
feature jit off 
x-0:0.01:4*pi; 

yl = sin(x); 

y2 = sin(1.01*x); 
figure(1), 

plot (x,yl,'r'); 
hold on 
plot (x, y2, bt); 
grid on 
xlabel('x'); 
ylabel('y') 


E 

haxes2-axes ('position', [0.3,0.7,0.20,0.20]) ; 
axis (haxes2); 

hold on 

plot (x(250:300),y1 
plot (x(250:300) , y2 
axis tight 


(250:300),'r-') $ 
(250:300),'b-') $ 


HE 


图 
图 


到 如 图 1-3 所 示 的 结果 。 


返 行程 序 后 , 得 


LL 
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x 


图 1-3 图形 的 局 部 放大 显示 


1.3 Monte Carlo 方 法 


Monte Carlo (蒙特 卡 罗 ) 方法 是 金融 学 中 应 用 较 广泛 的 一 个 方法 。 对 于 一 个 非 线性 不 可 微分 的 方程 而 言 ， 如 何 去 逼 近 这 样 的 一 个 方程 ， 传 统 的 方法 是 很 难 求解 的 。 


Monte Carlo 方 法 采用 随机 生成 点 的 方法 进行 合理 解 的 计算 ， 经 过 统计 学 知识 ， 得 到 方程 的 近似 解 ， 具 体 的 案例 分 析 如 下 。 


假设 有 两 个 曲线 方程 程 y= 1 一 x2 和 y 5=x2， 那 么 这 两 个 曲线 方程 所 围 成 的 面积 是 多 少 呢 ? 


绘制 两 曲线 方程 图 形 ， 具 体 的 MATLAB 程 序 如 下 : 


clc,clear,close all を 清理 命令 区 、 清理 工作 区 、 关 闭 显 示 图 形 
warning off 消除 警告 

feature jit off $ : 加 速 代码 运行 

x--1:0.01:1; 

yl-1-x.^2; 

y2- (x.^2) .^ (1/5); 

figure(1), 


绘制 图 形 如 图 1-4 所 示 。 


X: 0.5 
Y: 0.7579 


图 1-4 两 曲线 封闭 区 域 


在 x 等 于 - 0.49 ~ 0.5 区 间 ，y 等 于 0 ~ 1 区 间 进 行 区 域 面积 的 计算 ， 用 Monte Carlo 方 法 计算 区 域 面积 ， 具 体 的 MATLAB 代 码 如 下 : 


clc,clear,close all EI 清理 命令 区 、 清理 工作 区 、 关 闭 显 示 图 形 
warning off 
feature jit off $ tuat 


$ Monte Car1o 方 法 

tic % 运算 计时 
P=rand (10000, 2) ; 

x-P(:,1)-0.5; 

y-P(:,2); 

points-find (y«-1-x.^2&y.^5»-x.^2); 
M=1ength (points); 

S-4*M/10000 

figure ('color', [1, 1, 1] ) 

plot (x (points), y (points), 'bs') 
toc $ 计时 结束 

grid on 

xlabel('x'); 

ylabel('y') 


运行 程序 输出 结果 如 下 : 


1.5000 


时 间 已 过 0.102463 fh. 
>> 


得 到 相应 的 图 形 如 图 1-5 所 示 。 


1 nim tmi 


lis Ue 


图 1-5 面积 求解 


14 金融 工具 箱 绘图 函数 的 使 用 


单 击 MATLAB 2015b 界 面 上 的 绘图 按钮 ， 弹 出 下 拉 菜单 ， 得 到 如 图 1-6 所 示 界 面 。 


FINANCE TOOLBOX PLOTS 即 金融 工具 箱 绘图 函数 ， 其 中 有 bolling 函 数 、highlow 函 数 、candle 函 数 、kagi 函 数 、renko 函 数 、 


将 逐一 通过 简单 的 案例 介绍 这 些 函 数 的 使 用 。 


movavg 函 数 、priceandvol 函 数 、pointfig 函 数 、volarea 国 数 ， 下 面 


«V MATLAB R2015b 


Main MUN | plot plot plot plot plot Estimated .. Prediction... Prediction... plot 
MERS 
S< ugRLERN f 
工作 区 [ss 
w. lot First Deriv.. Second D... Integral cftool 
名 称 = 类 š s 
FINANCE TOOLBOX PLOTS max 
bolling highlow candle kagi renko movavg priceandvol pointfig volarea "d 
41 = 
— 一 IMAGE PROCESSING TOOLBOX PLOTS EX [3 
=< 
命令 行 窗口 TE 
>> 
001111 
imtool implay 
MAPPING TOOLBOX: PROJECTED X-Y PLOTS ma 
适用 于 所 选 内 容 的 绘图 © 所 有 绘图 


ii 
1h 
EI 
ÉI 

> 


1-6 FINANCE TOOLBOX PLOTS 界 面 


14.1 bolling ( 布 林 线 ) 函数 


在 MATLAB 命 令 行 窗 口中 输入 help bolling， 查 看 该 函数 的 使 用 格式 ， 具 体 如 下 : 


>> help bolling 

bolling Bollinger Band chart. 
bolling (ASSET, SAMPLES, ALPHA, WIDTH) plots Bollinger bands for given ASSET 
data vector. SAMPLES specifies the number of samples to use in computing 
the moving average. ALPHA is an optional input that specifies the exponent 
used to compute the element weights of the moving average. The default 
ALPHA is 0 (simple moving average). WIDTH is an optional input that 
specifies the number of standard deviations to include in the envelope. It 
is a multiplicative factor specifying how tight the bounds should be made 
around the simple moving average. The default WIDTH is 2. This calling 
syntax plots the data only and does not return the data. 


Note: The standard deviations are normalized by (N-1) where N is the 
sequence length. 


[MAV, UBAND, LBAND] = bolling (ASSET, SAMPLES, ALPHA, WIDTH) returns MAV with the 
moving average of the asset data, UBAND with the upper band data, and LBAND 
with the lower band data. It does not plot any data. 

bolling (ASSET,20,1) plots linear 20-day moving average Bollinger Bands. 


[MAV, UBAND, LBAND] = bolling(ASSET,20,1) returns the data used to plot the 
linear 20-day moving average Bollinger Bands without plotting the data. 


See also movavg, highlow, candle, pointfig. 


bolling 的 参考 页 


bolling 函 数 的 使 用 有 两 种 形式 ， 具 体 如 下 。 


(1) bolling (Asset, Samples, Alpha, Width) ; 
(2) [Movavgv, UpperBand, LowerBand]-bolling (Asset, Samples, Alpha, Width) 。 


bolling 函 数 有 4 个 输入 参数 : 第 1 个 参数 为 Asset， 即 资产 数据 ; 第 2 个 参数 Samples 为 样本 的 数量 ，Samples 样 本 数量 取决 于 参与 移动 平均 计算 的 样本 数量 ; 第 3 个 参数 Alpha 为 移动 平均 变量 的 指数 变量 
(权重 ) ， 默 认 情 况 下 Alpha=0; 第 4 个 参数 Width 为 相对 应 的 多 因子 标准 差 ， 默 认 值 为 2。 


bolling 移 动 平均 法 的 计算 过 程 如 下 : 


uild moving average vectors with for loops 
zeros (r-samples,1); 

a; 
or i = samples:r 
al(li-samples+1) 
b(i-samples+1) 


op 
"avc 


a 
b 
f 
= sum(asset (i-samples41:i).*w); 

= width * sum(std(asset(i-samplestl:i)).*w); 


end 


if nargout == 

ind - samples:r; 

h = plot (ind,asset (ind) , ind, a, ind, a+b, ind, a-b) ; 

if get(0,'screendepth') > 1 
cls = get (gca, 'colororde 
set (h (1), 'color',cls (1, 
set (h (2) , 'color',cls (2, 
set (h (3) , 'color',cls(3, 
set (h (4), 'color',cls(3 

end 


); 


ri 
:)); 
:)); 
:)); 
,:)); 


lband = a-b; 
end 


具体 的 案 例 分 析 如 下 : 


Clc,clear,close all 
warning off 


MD 清理 工作 区 、 关 闭 显示 


feature jit off $ 加 速 代 码 运行 
load('data000001.mat') 

openprice = data000001(:,1)' を 开盘 价 
highprice = data000001(:,2)'; % 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 
closeprice = data000001(:,4)'; % 收盘 价 


assert = [openprice]; 


[Movavgv, UpperBand, LowerBand] = bolling(assert, 20, 1); 


figure (1) 


plot (openprice (1, 21 :end) , "エー") : 


ho1d on 

plot (Movavgv, 'k--') 
plot (UpperBand, Wu A) 
plot (LowerBand, 'b.-' 


) 
legend ( "原始 资 扰 数据 ,，' 移 动 平均 值 ,移动 平均 值 上 界 ,，' 移 动 平均 值 下 界 ') 


grid on 
xlabel('t'); 
ylabel('price') 
axis tight 


运行 程序 ， 输 出 结果 如 图 


5000 


4500 


4000 


price 


3500 


3000 


2500 


2000 


直接 使 用 bolling (Asset, 


1-7 所 示 。 


Samples，Alpha，Width) 进行 函数 绘 


= 


， 代 码 如 下 : 


一 — Pe 


1-7 bolling 移 动 平均 法 绘 


= 


一 一 一 一 原始 资产 数据 
一 一 一 移动 平均 值 

移动 平均 值 上 界 

移动 平均 值 下 界 


figure 


7 
bolling(assert, 20, 1); 


grid on 
xlabel('t'); 
ylabel('price') 
axis tight 


运行 程序 ， 输 出 结果 如 加 


1-8 所 示 。 
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1-8 bolling 移 动 平 均 法 绘图 2 


对 比 图 1-7 和 图 1-8 可 知 ， 两 种 函数 使 用 方法 是 等 效 的 。 


142 highlow (高 低 价 ) 函数 


在 MATLAB 命 令 行 窗口 中 输入 help highlow， 查 看 该 函数 的 使 用 格式 ， 具 体 如 下 : 


>> help highlow 
highlow High, low, open, close chart. 


highlow(HI,LO,CL,OP,COLOR) displays the high, low, opening, 

and closing price of an asset. Plots are vertical lines whose top is the 
high, bottom is the low, open is a left tick, and close is a right tick. 
HI is the high price of asset, LO is the low price of asset, CL is the 
closing price of asset, OP is the opening price of asset, and COLOR is the 
line color. All input prices are specified as column vectors. 


MATLAB supplies a default color if none is specified. The default color 
differs depending on the background color of the figure window. See 
COLORSPEC in the MATLAB Reference Guide for COLOR names. 


OP is optional. To specify COLOR when OP is unknown, enter OP as an 
empty matrix, []. 


highlow(HI,LO,CL,OP,COLOR) plots the figure and returns the handles 
H of the lines. See the MATLAB User's Guide for information on Handle 
Graphics. 


highlow (HI, LO, CL, OP, COLOR, DATES, DATEFORM) allows you to specify your own 
date vector DATES. DATES must be a column vector.  DATEFORM is an 
optional input argument dictating the format of the date string as tick 
labels. See DATEAXIS for the details on date string formats. 


For example, if the high, low, and closing prices for an asset are 
stored in the vectors asseth, assetl, and assetc, respectively, the 
High-Low-Close plot is displayed with the command 

highlow (asseth,assetl,assetc). 


See also candle. 


highlow 的 参考 页 
名 为 highlow 的 其 他 函数 


highlow 函 数 的 使 用 有 3 种 形式 ， 具 体 如 下 。 


(1) highlow (High, Low, Close, Open, Color) 
(2) highlow (High, Low, Close, Open, Color, Dates, Dateform) 


(3) Handles=highlow (High, Low, Close, Open, Color, Dates, Dateform) 。 


highowk št FBBU-E SESS Ec 第 1 个 参数 为 输入 数据 的 最 高 价 ;第 2 个 参数 为 输入 数据 的 最 低 价 ; 第 3 个 参数 为 输入 数据 的 收盘 价 ;第 4 个 参数 为 输入 数据 的 开盘 价 ; 第 5 个 参数 为 绘图 的 颜色 设置 ; 
第 6 个 输入 参数 为 绘图 x 轴 的 日 期 ;第 7 个 输入 参数 为 输入 日 期 的 形式 设置 。 


具体 的 highlow 函 数 使 用 如 下 。 


(1) 设置 绘图 颜色 为 红色 ， 具 体 代 码 如 下 : 


clc,clear,close all を E ts 清理 工作 区 、 关 闭 显示 图 形 
warning off を 消除 警 
feature jit off 2 加 速 代码 运行 ” 


load('data000001.mat') 


openprice = data000001 (1:40,1); を 开盘 价 

highprice = data000001 (1:40,2); る 最 高 价 

lowprice = data000001(1:40,3); $ 最 低 价 
closeprice = data000001 (1:40,4); % 收盘 价 

Color - 'red'; を 顔色 

figure (1) 

highlow(highprice, lowprice, closeprice, openprice, Color); 
grid on 

axis tight 


运行 程序 ， 输 出 结果 如 图 1-9 所 示 。 
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图 1-9 highlow së 4548 01 


(2) 添加 显示 日 期 ， 具 体 代 码 如 下 : 


figure (2) 

load disney.mat 

range - [1:40]; 

dates = [dis.dates (range) ] ; 

highlow(highprice, lowprice, closeprice, openprice, Color,dates); 
grid on 

axis tight 


运行 程序 ， 输 出 结果 如 图 1-10 所 示 。 
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图 1-10 highlow 函 数 的 使 用 2 


(3) 结构 体 下 的 数据 绘图 显示 。 使 用 结构 体 存储 的 数据 ， 采 用 highlow 进 行 绘图 ， 具 体 代码 如 下 : 


figure (3) 

load disney.mat 

range = 1:25; 

highlow (dis HIGH(range), dis LOW(range), dis CLOSE (range),http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
dis OPEN (range), 'blue',dis.dates (range)); 


运行 程序 ， 输 出 结果 如 图 1-11 所 示 。 
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14.3 candle (阴阳 烛 图 ) 函数 


在 MATLAB 命 令 行 窗 | 
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1-11 highlow 函 数 的 使 用 3 


中 输入 help candle， 查 看 该 函数 的 使 用 格式 ， 具 体 如 下 : 


04/28 


05/05 


>> help candle 
candle Candlestick chart. 


candle(HI, LO, CL, OP) 
candle(HI, LO, CL, OP, COLOR, DATES, DATEFORM) 


Optional Inputs: COLOR, DATES, DATEFORM 


Inputs: 
HI 


LO 
CL 
OP 


Optional 
COLOR 


DATES 


DATEFORM 


Column vector 
Column vector 
Column vector 


Column vector 


Inputs: 

- Three element color vector, [R G B], or a string specifying the 
color name. MATLAB supplies a default color if none is specified 
or if it is empty. The default color differs depending on the 
background color of the figure window. See COLORSPEC in the 
MATLAB Reference Guide for color names. 


Column vector 
labels. 


of high prices of a security. 
of low prices of a security. 
of closing prices of a security. 


of opening prices of a security. 


of dates for user specified X-axis tick 


A scalar dictating the format of the date string tick labels. 
See DATEAXIS for details on the date string formats. 


See also bolling, highlow, movavg, pointfig. 


candle 的 参考 页 
名 为 candle 的 其 他 函数 


candle 函 数 使 用 有 两 种 形式 ， 具 体 如 下 。 


(1) candle (HighPrices, LowPrices, ClosePrices, OpenPrices) ; 


(2) candle (HighPrices, LowPrices, ClosePrices, OpenPrices, Color, Dates, Dateform) 。 


candle 函 数 使 


具体 的 candle 函 


的 主要 输入 参数 说 明 : 第 1 个 参数 为 输入 数据 的 最 高 价 ; 第 2 个 参数 为 输入 数据 的 最 低 价 ;第 3 个 参数 为 输入 数据 的 收盘 价 ， 第 4 个 参数 为 输入 数据 的 开盘 价 ;第 5 个 参数 为 绘图 的 颜色 设 
Br; 第 6 个 输入 参数 为 绘图 x 轴 的 日 期 ， 第 7 个 输入 参数 为 输入 日 期 的 形式 设置 。 


数 使 用 如 下 : 


clc,clear,close all $ 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
warning off s 消除 警告 


除 警 告 
feature jit off を 加 速 代 码 运行 
load('data000001.mat') 

openprice = data000001(1:40,1); % 开盘 价 

highprice = data000001(1:40,2); を 最 高 价 

lowprice = data000001 (1:40, 3) ; $ 最 低 价 

closeprice = data000001 (1:40,4); を 收盘 价 

Color = 'blue'; $ 顔色 

figure (1) 

candle(highprice, lowprice, closeprice, openprice, Color); 
grid on 

axis tight 


运行 程序 ， 输 出 结果 如 图 1-12 所 示 。 
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图 1-12 Ë & S candles At E 


修改 显示 颜色 ， 具 体 代码 如 下 : 


figure (2) 

candle(highprice, lowprice, closeprice, openprice, 'green'); 
grid on 

axis tight 


运行 程序 ， 输 出 结果 如 图 1-13 所 示 。 
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图 1-13 绿色 的 candle 函 数 图 


修改 x 轴 显示 的 日 期 ， 具 体 代 码 如 下 : 


figure (3) 


load disney.mat 

range - [1:40]; 

dates = [dis.dates (range)]; 

Color = 'blue'; % 顔色 

candle(highprice, lowprice, closeprice, openprice, Color,dates); 
grid on 

axis tight 


ylabel ("上 证 指数 ') 


运行 程序 ， 输 出 结果 如 图 1-14 所 示 。 
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图 形 窗 


中 的 属性 按钮 ， 如 图 


1-15 所 示 。 
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1-14 有 时 间 刻 度 的 candle 函 数 
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145 图 形 窗 口 属性 


之 后 显示 如 图 1-16 所 示 ， 此 时 用 户 可 以 修改 阴阳 烛 图 的 显示 属性 ， 在 图 1-16 右 侧 的 “绘图 浏览 器 ”中 ， 可 进行 着 色 修改 ， 具 体 如 图 1-17 所 示 。 
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图 1-17 属性 修改 


修改 完成 后 ， 单 击 z 按钮 弹出 新 窗口 ， 即 可 得 到 修改 属性 的 图 形 ， 如 图 1-18 所 示 。 
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图 1-18 ”弹出 新 窗口 


此 时 用 户 所 需要 的 着 色 图 就 完成 了 ， 用 户 可 以 选择 “文件 ”一 “生成 代码 ”命令 ， 自 动 生成 该 图 形 的 代码 ， 如 图 1-19 所 示 。 
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到 


1-19 生成 代码 


生成 的 绘制 该 图 形 的 代码 如 下 : 


function createfigure (X1, Y1, ZDatal, YDatal, XDatal, ZData2, YData2, XData2) 
SCREATEFIGURE(X1, Yl, ZDATAl, YDATAl, XDATA1, ZDATA2, YDATA2, XDATA2) 

X1: x 数据 的 矢量 

Yl: y 数据 的 矢量 

ZDATA1: patch zdata 

YDATA1: patch ydata 

XDATA1: patch xdata 

ZDATA2: patch zdata 

YDATA2: patch ydata 

XDATA2: patch xdata 


de de de de de de oe oe 


op 


由 MATLAB 于 02-Aug-2016 21:40:24 自动 生成 


$ 创建 figure 
figurel = figure; 


$ 创建 axes 
axesl = axes ('Parent',figurel); 
hold (axes1, 'on'); 


$ 创建 plot 
plot(Xl,Y1,'Color',[0O 0 1]); 


$ 创建 patch 

patch('Parent',axesl, 'ZData',ZDatal, 'YData',YDatal, 'XData',XDatal, http: / /www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'MarkerFaceColor', [1 0 0],http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 

'FaceColor',[1 0 0],http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . . 

'EdgeColor',[1 0 0]); 


$ 创建 patch 

patch('Parent',axesl, 'ZData',ZData2, 'YData',YData2, 'XData',XData2, http: / /www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . . 
'MarkerFaceColor', [0 1 1],http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 

'FaceColor',[0 1 1],http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . . 

'EdgeColor',[0 1 1]); 


$ 创建 ylabel 
ylabel (" 上 证 指数 ') ; 


box (axes1, 'on'); 

grid(axesl, 'on'); 

axis (axes1, 'tight'); 

% 设置 其 余 坐标 轴 属 性 

set (axes1, 'XTick',http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
[729108 729115 729122 729129 729136 729143 729150 729157 729164 729171],http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/T 
'"XTickLabel',http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... n4 


['03/24'; '03/31';'04/07'; '04/14';'04/21'; '04/28';'05/05'; '05/12';'05/19';'05/26']); 


144 kagi (折线 图 ) 函数 


在 MATLAB 命 令 行 窗口 中 输入 help kagi， 查 看 该 函数 的 使 用 格式 ， 具 体 如 下 : 


>> help kagi 

kagi Kagi chart. 
kagi (X) plots the stock data in a Kagi chart. X is an Mx2 
matrix where the first column contains date numbers and the second 
column is the asset price. 


See also bolling, candle, highlow, linebreak, movavg, pointfig, renko, volarea, priceandvol. 


kagi 的 参考 页 


kagi 函 数 使 用 形式 具体 如 下 : 


kagi (X) 


kagi 函 数 使 用 的 主要 输入 参数 只 有 一 个 ， 该 参数 为 输入 数据 。 


具体 的 kagi 函 数 使 用 如 下 : 


clc,clear,close all を 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
warning off を 消除 警告 
feature jit off EI 


load disney.mat 

range - [1:420]; 

dates = [dis.dates (range) ] +6500; 
load('data000001.mat') 

openprice = data000001(:,1); E 


4 


Filtfft 


data = [dates, openprice]; 
figure (1) 

kagi( data ); 

grid on 

axis tight 


运行 程序 ， 输 出 结果 如 图 1-20 所 示 。 
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图 1-20 kagi (折线 图 ) 元 数 的 使 用 


14.5 renko ( 破 形 園 ) 函数 


在 MATLAB 命 令 行 窗 | 


中 输入 help renko， 查 看 该 函数 的 使 用 格式 ， 具 体 如 下 : 


>> help renko 
renko Renko chart. 


renko (X) plots the asset data, X, in a Renko chart. X is an Mx2 


matrix where the 


first column contains date numbers and the second 


column is the asset price. 


renko(X,THRESHOLD) plots the asset data, X, adding a new box only when 
the price has changed but at least the value specified by THRESHOLD. 
By default, THRESHOLD is set to 1. 


See also bolling, candle, highlow, linebreak, movavg, priceandvol, pointfig, kagi, volarea. 


renko 的 参考 页 


renko 函 数 使 用 形式 具体 如 下 : 


renko (X) 
renko 函 数 使 用 的 主要 输入 参数 只 有 一 个 ， 该 参数 为 输入 数据 。 
具体 的 renko 函 数 使 用 如 下 : 


clc,clear,close all 
warning off 
feature jit off 


load disney.mat 
range = [1:420]; 


清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
肖 除 警告 
% 加 速 代码 运行 


dates = [dis.dates (range) ] +6500; 


load('data000001.mat 


! 


openprice = data000001(:,1); % 开盘 价 


data = [dates, openprice]; 


figure (1) 
renko( data ); 
grid on 

axis tight 


运行 程序 ， 输 出 结果 如 


1-21 所 示 。 
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图 1-21 


14.6 movavg (移动 平均 图 ) 函数 


在 MATLAB 命 令 行 窗 


中 输入 help movavg， 查 看 该 函数 的 使 用 格式 ， 具 体 如 下 : 
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>> help movavg 


movavg Leading and lagging moving averages chart. 
[SHORT, LONG] = movavg (ASSET, LEAD, LAG,ALPHA) plots leading and lagging 


moving averages. 


ASSET is the security data, LEAD is the number of 


samples to use in leading average calculation, and LAG is the number 
of samples to use in the lagging average calculation. ALPHA is the 
control parameter which determines what type of moving averages are 
calculated. ALPHA = 0 (default) corresponds to a simple moving average, 


ALPHA = 0.5 to a 


Square root weighted moving average, ALPHA = 1 


to a linear moving average, ALPHA = 2 to a square weighted moving 
average, etc. To calculate the exponential moving averages, 


let ALPHA - 'e'. 


movavg(ASSET,3,20,1) plots linear 3 sample leading and 20 sample 
lagging moving averages. 


[SHORT,LONG] = movavg(ASSET,3,20,1) returns the leading and lagging 
average data without plotting it. 


Note: Zero padding is used at the edges of the data. 
See also bolling, highlow, candle, pointfig. 


movavg 的 参考 页 


movavg 函 数 的 使 用 有 两 种 形式 ， 具 体 如 下 。 


(1) movavg (Asset, Lead, Lag, Alpha) ; 


(2) [Short, Long]=movavg (Asset, Lead, Lag, Alpha) 。 


movavg 函 数 使 用 的 主要 输入 参数 说 明 : 第 1 个 参数 为 输入 的 数据 ; 第 2 个 参数 为 短 样本 移动 平均 平滑 操作 ， 
第 4 个 参数 Alpha 为 输入 控制 参数 ， 具 体 表现 形式 如 下 。 


数值 为 整数 ， 且 小 于 第 3 个 参数 ;第 3 个 参数 为 长 样本 移动 平均 平滑 操作 ， 其 数值 为 整数 ; 


“Alpha=0， 简 单 的 移动 平均 ; 


- Alpha=0.5， 平 方 根 加 权 移 动 平 均 ; 


:Alpha=1， 线 性 移动 平均 ; 


` Alpha=4， 均 方 加 权 移 动 平均 ; 


: Alpha='e ， 指 数 移动 平均 。 


体 的 movavg 函 数 代码 如 下 : 
function [short,long] = movavg (asset, lead, lag, alpha) 
if lower (alpha) == 'e' 


$ compute exponential moving average 
$ calculate smoothing constant (alpha) 
alphas = 2/ (1ead+1) 

alphal = 2/ (lag+1); 

$ first exponential average is first price 
laggingAvg(1) = asset (1); 

leadingAvg (1) asset (1); 


% preallocate matrices 
laggingAvg = [laggingAvg; zeros (r-1,1)]; 
leadingAvg = [leadingAvg; zeros (r-1,1)]; 


% lagging average 
% For large matrices of input data, FOR loops are more efficient 
% than vectorization. 


for j = 2:r 
laggingAvg (j) = laggingAvg(j-1) + alphal * (asset(j) - laggingAvg (j-1)); 
end 
$ leading average 
for j = 2:r 
leadingAvg(j) = leadingAvg(j-1) + alphas * (asset(j) - leadingAvg (j-1)); 
end 
else 


$ compute general moving average (ie simple, linear, etc) 


$ build weighting vectors 


i = 1:1lag; 

laggingWeights(i) = (lag - i + 1) .^ alpha ./ sum((1:lag) .^ alpha); 
i = 1:lead; 

leadingWeights(i) = (lead - i + 1) .^ alpha ./ sum((1:lead) .^ alpha); 


$ build moving average vectors by filtering asset through weights 
laggingAvg = filter (laggingWeights,l,asset); 
1eadingAvg = filter (leadingWeights,1,asset); 

end 


体 movavg 函 数 代码 请 查看 MATLAB 帮 助 文档 。 


movavg 函 数 具体 的 使 用 形式 如 下 。 


(1) movavg (Asset, Lead, Lag, Alpha) 


体 使 用 代码 如 下 : 


clc,clear,close all 理 命令 区 、 清 理工 作 区 、 关 闭 显 示 图 形 
warning off s 消除 警告 
feature jit off を 加 速 代码 运行 


op 


zx 


load disney.mat 

range = [1:420]; 

dates = [dis.dates (range) ]+6500 
load('data000001.mat') 


openprice = data000001 (:,1) を 开盘 价 
data = [dates, openprice]; 

figure (1) 

movavg( openprice,3,20,1 ); 

grid on 

axis tight 


xlabel ( "样本 点 数 ") 
ylabe1 (' 上 证 指数 ') 


运行 程序 ， 输 出 图 形 如 图 1-22 所 示 。 
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图 1-22 movavg (移动 平均 图 ) 函数 的 使 用 1 


由 于 lead 取 值 为 3， 使 得 移动 平均 曲线 和 原始 曲线 靠 的 很 近 ， 此 时 增 大 lead 取 值 ， 继 续 绘图 ， 得 到 如 1-23 所 示 的 图 形 。 
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图 1-23 ”lead=10 的 移动 平均 


(2) [Short, Long]=movavg (Asset, Lead, Lag, Alpha) 


网 


这 种 [Short，Long]=movavg (Asset, Lead, Lag, Alpha) 就 是 把 lead 和 lag 图 形 都 对 应 输出 了 ， 用 户 可 以 选择 性 地 画 


， 具 体 使 用 代码 如 下 : 


clc,clear,close all $ 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
warning off る TERT 
feature jit off 和 加 


load disney.mat 

range = [1:420]; 

dates = [dis dates (range) 16500; 
load('data000001.mat') 


openprice - data000001(:,1); る 开盘 价 
[short, long] = movavg( openprice,10, 20,1 ); 
figure (2) 

plot (openprice (20:end,1),'r-','linewidth',2) 
hold on 


plot (short (20:end,1), 'g-', 'linewidth',2) 
plot (long (20:end, 1) , 'b-', 'linewidth',2) 
grid on 

axis tight 

xlabel (' 样 本 点 数 ') 

ylabel (' 上 证 指数 ') 


运行 程序 ， 输 出 图 形 如 图 1-24 所 示 。 


上 证 指数 


1.4.7 priceandvol (成 交 量 图 ) 函数 


在 MATLAB 命 令 行 窗 


中 输入 help priceandvol， 查 看 该 函数 的 使 


格式 , 具体 如 下 : 


样本 点 数 


图 1-24 movavg (移动 平均 图 ) 函数 的 使 用 2 


>> help priceandvol 


priceandvol Price and volume chart. 


priceandvol(X) plots the asset data displaying the open, high, low and 


Closing prices on one axis and the volume on a second axis. 


asset data where the columns are date, open, high, low, close and 


volume. 


X is the 


See also bolling, candle, highlow, linebreak, movavg, pointfig, renko, kagi, volarea. 


priceandvol 的 参考 页 


priceandvol 函 数 使 用 形式 具体 如 下 : 


priceandvol (X) 


priceandvol 函 数 使 用 的 主要 输入 参数 说 明 : 其 参数 为 输入 的 数组 ， 该 数组 按 列 依次 为 日 期 、 股 票 开盘 价 、 股 票 最 高 价 、 股 票 最 低 价 、 股 票 收盘 价 以 及 股票 的 成 交 量 。 


具体 的 priceandvol 函 数 使 用 


代码 如 下 : 


clc,clear,close all % 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 

warning off % 消除 警告 

feature jit off を 加 速 代 码 运行 

X = [http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 

733299.00 41.93 42.15 41.83 41.99 15045445.00; http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733300.00 42.09 42.24 41.76 42.14 15346658.00; http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733303.00 42.00 42.20 41.78 41.93 9034397 .00; http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text./ 
733304.00 41.82 42.16 41.70 41.98 14486275.00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733305.00 41.94 42.19 41.70 41.75 16389872.00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733306.00 42.00 42.57 41.50 41.61 20475208 .00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733307.00 41.93 42.35 41.74 42.29 14833200.00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733310.00 42.01 42.70 42.01 42.19 18945176.00; http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733311.00 42.18 42.72 41.73 41.82 25188101.00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733312.00 42.57 42.57 41.33 41.93 22689878 .00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733313.00 41.86 42.35 41.71 41.81 21084723.00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733314.00 41.70 41.90 41.04 41.37 21963619.00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733317.00 40.98 41.49 40.82 41.17 20385033.00;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text 
733318.00 41.50 42.15 41.21 42.02 27783775.00]; T 

priceandvol (X) 

运行 程序 ， 输 出 图 形 如 图 1-25 所 示 。 
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14.8 pointfig ( 涨 跌 点 图 ) 函数 


图 1-25 


在 MATLAB 命 令 行 窗口 中 输入 help pointfig， 查 看 该 函数 的 使 用 格式 ， 


>> help pointfig 
pointfig Point and figure chart. 


pointfig(ASSET) plots a point and figure chart for given data, ASSET. 
Upward price movements are plotted as X's and downward price 


movements are plotted as O's. 
See also highlow, candle, movavg, bolling. 


pointfig 的 参考 页 


pointfig 函 数 使 用 形式 具体 如 下 : 


pointfig (ASSET) 


pointfig 函 数 使 用 主要 输入 说 明 : 其 参数 为 输入 数据 。 


体 的 pointfig 函 数 使 用 代码 如 下 : 


clc,clear,close all 令 区 、 清 理工 作 区 、 关 闭 显 示 图 形 
warning off 


feature jit off 


load disney.mat 

range = [1:420]; 

dates = [dis.dates (range) ] 16500; 
load('data000001.mat') 


openprice = data000001 (:,1); を 开盘 价 
figure (1) 

pointfig( openprice ); 

grid on 

axis tight 


xlabel('FÉA ei) 
ylabel (' 上 证 指数 ') 


运行 程序 ， 输 出 


四 


形 如 


1-26 所 示 。 
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体 如 下 : 


priceandvol (成 交 量 图 ) 函数 的 使 用 
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图 1-26 pointfg ( 涨 跌 点 图 ) 函数 使 用 


放大 图 形 后 显示 如 图 1-27 所 示 。 


awo | 1 | | | | 


3300 || | | | | 


3200 


3100 


3000 


上 证 指数 


2900 


2800 


2700 


2600 


2500 


图 1-27 pointfig žk K 


如 图 1-26 和 


网 


1-27 所 示 ， 其 中 绿色 柱 是 下 降 值 ， 表 示 该 天 股票 下 跌 ， 而 红色 柱 则 是 上 升值 ， 表 示 该 天 股票 上 涨 。 


1.4.9 volarea (成 交 量 面积 图 ) 函数 


在 MATLAB 命 令 行 窗口 中 输入 help volarea， 查 看 该 函数 的 使 用 格式 ， 具 体 如 下 : 


>> help volarea 

volarea Price and volume chart. 
volarea(X) plots the asset data price and volume on a single axis. 
X contains the asset data in columns date, price, and volume. 


See also bolling, candle, highlow, linebreak, movavg, pointfig, priceandvol, kagi, renko. 


volarea 的 参考 页 


volarea 函 数 使 用 形式 具体 如 下 : 


volarea (X) 


volarea 函 数 使 用 的 主要 输入 参数 说 明 : 其 参数 为 输入 数据 ， 该 输入 数组 包括 3 列 ， 依 次 为 日 期 、 股 票 收盘 价 、 股 票 成 交 量 。 


具体 的 volarea 函 数 使 用 代码 如 下 : 

clc,clear,close all % 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 

warning off を 消除 警 

feature jit off を 加 速 代 码 运行 

X = [http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... 

733299.00 41.99  15045445.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
733300.00 42.14  15346658.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733303.00 41.93 9034397 .00; http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733304.00 41.98  14486275.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/O0EBPS/Text/ 
733305.00 41.75  16389872.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733306.00 41.61  20475208.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733307.00 42.29  14833200.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733310.00 42.19  18945176.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/ 
733311.00 41.82  25188101.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733312.00 41.93  22689878.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733313.00 41.81 — 21084723.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ 
733314.00 41.37  27963619.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/ 
733317.00 41.17  20385033.00;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
733318.00 42.02 27783775.00]; B 

volarea (X) 

grid off 

axis tight 


运行 程序 ， 输 出 图 形 如 图 1-28 所 示 。 
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图 1-28 volarea (成 交 量 面积 图 ) HAEA 


本 章 主要 基础 地 介绍 了 MATLAB 基 本 操作 以 及 金融 工具 箱 绘图 (FINANCE TOOLBOX PLOTS) 函数 的 使 体 包括 bolling 函 数 、highlow 函 数 、candle 函 数 、kagi 函 数 、renko 函 数 、movavg 函 


数 、priceandvol 函 数 、pointfig 函 数 、volarea 函 数 的 使 用 ， 这 些 函数 的 使 用 也 是 金融 学 习 的 基础 。 


第 2 章 MATLAB 高 级 应 用 


对 于 投资 者 而 言 ， 更 多 需要 的 是 独立 于 计算 机 操作 系统 的 可 执行 界面 软件 ， 本 章 从 MATLAB 编 译 器 出 发 ， 详 细 阐 述 MATLAB 编 译 器 功能 。 具 体 包括 mcc 编 译 、dll 文 件 生成 、pcode 文 件 加 密 以 及 GUI 可 
视 化 软件 设计 。 本 章 的 学 习 对 于 读者 进行 独立 编译 器 的 设计 具有 较 大 的 启发 作用 。 


2.1” 正 余 纺 函数 计 算 


MATLAB 和 矩阵 的 使 用 是 极其 灵活 的 ， 类 似 于 一 般 的 数学 表达 式 写 作 过 程 ， 读 者 只 需要 具备 一 定 的 高 等 数学 知识 即 可 轻松 使 用 MATLAB。 


下 面 通过 一 个 例子 来 说 明 MATLAB 正 余弦 函数 的 使 用 。 该 方法 是 用 来 计算 两 点 经 纬度 之 间 的 直线 距离 。 


例如 ， 某 一 点 的 经 纬度 为 M (A2, B2) ， 另 一 点 的 经 纬度 为 N (C2, D2) ， 则 MNN 之 间 的 实际 距离 计算 具体 如 下 : 


% 参考 本 代码 ， 请 引用 并 注 明 本 书信 息 〈 余 胜 威 ) 
clc,clear,close all 青 理 命令 区 、 清 理工 作 区 、 关 闭 显 示 图 形 
warning off 


feature jit off を 加 速 代码 运行 

S 经 纬度 距离 计算 

A2 = 113.917; 

B2 = 28.3 

C2 = 113.9 

D2 = 22.3; 

DD = 6371004*acos( sin(B2*pi/180) *sin(D2*pi/180)-*http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
cos (B2*pi/180)*cos (D2*pi/180)*cos((C2-A2)*pi/180) ) % 单位 米 


运行 程序 ， 输 出 结果 如 下 : 


DD = 


6.6717e+05 


可 以 看 出 ，MATLAB 的 数学 运算 是 极其 清晰 明了 的 。 


2.2 pcode 加 密 


MATLAB 代 码 逐 渐 商业 化 ， 然 而 很 多 企业 采用 MATLAB 进 行 算法 开发 ， 算 法 代码 并 不 想 给 第 三 方 看 ， 因 此 想 对 代码 加 密 处 理 ，MATLAB 也 提供 了 保护 用 户 自 编 代 码 封装 的 功能 。pcode 函 数 指令 的 出 
现 ， 极 大 地 保护 了 原始 代码 创建 者 的 成 果 ，pcode 加 密 代码 可 以 被 调用 ， 但 是 无 法 查阅 ， 特 别 是 在 金融 计算 领域 ，pcode 指 令 的 使 用 尤为 多 。 具 体 的 pcode 使 用 方法 如 下 。 


例如 ， 求 解 两 点 经 纬度 距离 的 函数 为 : 


function DD = JingWei | Distance (Ax, Ay, Bx, By) 
$ R 点 经 纬度 (Ax, Ay) 
$ B 点 经 纬度 (Bx, By) 


A2 = Ax; 

B2 = Ay; 

C2 = Bx; 

D2 = B; 

DD = 6371004*acos ( sin (B2*pi/180) *sin( (D2*pi/180) http: / /www .hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/.. 
cos (B2*pi/180)*cos (D2*pi/180)*cos((C2-A2)*pi/180) ) % 单位 米 

输入 pcode 命 令 如 下 : 


>> pcode JingWei Distance 


具体 如 图 2-1 所 示 。 


EB 
double 113.9170 113.9170 
double 28.3000 
double 113.9000 
double 22.3000 


double 6.6717e+05 66717e.. と 
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图 2-1 pcode (加 密 ) 函数 使 用 


pcode 命 令 可 用 于 脚本 文件 的 加 密 、GUI 脚 本 函数 加 密 等 ， 采 用 pcode 将 文件 加 密 后 ， 并 不 改变 程序 功能 ， 只 是 将 程序 设置 为 不 可 查看 ; 加 密 文件 可 提供 第 三 方 使 用 ， 源 文件 由 作者 本 人 留存 。 如 果 源 
文件 不 幸 丢 失 ， 那 么 加 密 作者 本 人 也 是 无 法 查看 加 密 文件 的 ， 只 能 重新 写 代 码 ， 重 新 编译 。 


2.3 ”基本 GUI 设计 


对 于 很 多 从 事 金融 分 析 的 业内 人 士 而 言 ， 可 能 不 需要 关注 软件 底层 运行 过 程 ， 只 是 关心 用 什么 方法 得 到 什么 结果 ， 能 够 看 到 结果 是 最 重要 的 ， 然 后 根据 结果 进行 分 析 处 理 。 


不 用 去 看 软件 底层 代码 ， 只 关注 结果 ， 顾 名 思 义 就 是 需要 一 个 软件 界面 ， 用 户 只 需要 单 击 按钮 就 得 到 相应 的 结果 即 可 。MATLAB 提 供 了 较为 强大 的 GUI 软件 设计 工具 箱 ， 用 户 可 根据 GUI Guide 进 行 快 
速 设计 ， 并 且 人 机 界面 良好 。 


以 下 介绍 一 个 简单 的 GUI 设计 案例 。 


Step1: 在 MATLAB 命 令 栏 输入 guide， 得 到 如 图 2-2 所 示 对 话 框 。 


此 时 单 击 “ 确 定 ” 按 钮 即 可 ， 得 到 一 个 GUI 界面 ， 如 图 2-3 所 示 。 


Bl CUIDE 快 过 入 门 


GUIDE templates 


UL with Uicontrols 
4l GUI with Axes and Menu 
地 Modal Question Dialog 


图 2-2 GUI 启动 
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图 2-3 空白 的 GUI 


如 图 2-3 所 示 ， 此 时 就 可 以 在 空白 的 GUI 上 面 进行 按钮 的 拖 放 了 。 


Step2: 本 文 GUI 设计 主要 实现 图 像 的 基本 运算 、 图 像 均衡 、 图 像 的 放大 与 缩小 、 彩 色 图 像 转 灰 度 图 像 、 旋 转 、 加 噪声 操作 、 滤 波 去 品 、 直 方 图 统计 以 及 均衡 化 处 理 、 二 值 化 处 理 等 。 


如 图 2-4 所 示 ，GUI 系 统 拖 放 了 3 个 按钮 ， 分 别 是 “加 载 图 像 ”按钮 、 “直方 图 均衡 化 ”按钮 和 “退出 系统 ”按钮 。 “加载 图 像 ” 即 打开 要 分 析 的 图 像 ，“ 直 方 图 均衡 化 ”是 为 了 消除 加 载 图 像 曝光 度 的 
影响 ，“ 退 出 系统 ” 则 是 退出 并 关闭 该 GUI。 
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在 “加 载 图 像 ” 按 钮 下 写 入 代码 : 


sa NR eo 


[SER [520, 383, 786, 417] 


global img imgGray 
warning off 


[filename, pathname] -uigetfile( jpg';'*.bmp';'*.tif'), 选择 图 片 ') 
FSI STT Na 
str=[pathname, filename]; る 図像 名 称 
img =1mread (str); $$ ”加载 该 图 像 
if size (img,3)>1 
imgGray-rgb2gray (img); S 转化 为 灰 度 图 像 
else 
imgGray = img; 
end 


axes (handles .axeS1 ) 
imshow (img) 


由 于 考虑 到 本 系统 还 涉及 中 值 滤波 、 二 值 化 处 理 、 直 方 图 均衡 化 等 操作 ， 


。 运 行 GUI， 结 果 如 图 2- 


scum 


退出 系统 


n Image Process GUI 


BUSES 


此 时 声明 了 两 个 全 局 变量 img 和 imgGray，img 为 原始 加 载 图 像 ，imgGray 为 处 理 的 灰 度 图 像 。 


在 “直方 图 均衡 化 ”按钮 下 写 入 以 下 代码 : 


global img imgGray 
%% “直方 Tyri" 


J 7 imadjust (imgGray); 
axes (handles.axes2) 
imshow (J) 


图 


直方 图 均衡 化 ”按钮 下 需要 继续 声明 一 次 。imadjust 为 自 适 应 直方 图 均衡 化 函数 ， 运 行 GUI， 得 到 结果 如 图 2-6 所 示 。 


此 时 需要 调用 全 局 变量 img 和 imgGray， 则 在 “ 


Do O O E c: 


图 2-6 直方 图 均衡 化 


相应 的 在 “退出 系统 ”按钮 下 写 入 以 下 代码 ， 关 闭 并 退出 该 GUI。 


clc, clear, close all 


clc 为 清 屏 函数 ，clear 为 清理 工作 区 函数 ，close all 是 关闭 所 有 的 Figure 窗 口 。 


Step3: 实现 了 基本 的 图 像 加 载 、 直 方 图 均衡 化 等 功能 后 ， 接 下 来 可 以 添加 其 他 按钮 进行 图 像 的 处 理 及 分 析 ， 其 操作 方法 和 图 2-4~ 图 2-6 一 致 。 
(1) 拖 放 图 像 的 “三 维 视图 ”按钮 ， 实 现 图 像 的 三 维 视图 功能 ， 如 图 2-7 所 示 。 
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图 2-7 拖 放 图 像 “ 三 维 视图 ”按钮 
此 时 已 经 添加 图 像 的 “三 维 视图 ”按钮 ， 在 图 像 的 “三 维 视图 ”按钮 下 写 入 以 下 程序 。 
global img imgGray 
axes (handles .axes2) 
surf (double (imgGray (1:4:end,1:4:end))),zlim([O 256]); 
执行 该 GUI， 单 击 “ 三 维 视图 ”按钮 ， 则 得 到 如 图 2-8 所 示 结 果 。 
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(2) 进行 图 像 像素 的 运算 ， 即 实现 图 像 的 乘除 运算 ， 添 加 按钮 如 图 2-9 所 示 。 


由 于 图 像 像 素 的 乘除 运算 需要 用 户 输 入 乘除 因子 ， 因 此 需要 一 个 edit 输 入 框 ， 供 用 户 输入 数值 ， 系 统 默认 为 1。 


在 图 像 的 “图 像 像素 乘除 运算 ”按钮 下 写 入 代码 如 下 : 


global imgGray 

A = str2num( get (hand1es . edit1, "string') ); 
img2 = A*imgGray; 

axes (handles.axes2) 

imshow (img2, [] ) 


运行 程序 ， 结 果 如 图 2-10 所 示 。 
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图 2-9 添加 “图 像 像素 乘除 ”按钮 
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2-10 图 像 像 素 乘 除 运算 


(3) 进行 图 像 的 放大 缩小 操作 ， 图 像 的 放大 缩小 操作 需要 用 户 指定 图 像 的 放大 缩小 高 宽 尺 寸 ， 因 此 同样 需要 用 户 设计 一 个 可 供用 户 输入 的 数值 框 ， 具 体 设计 如 图 2-11 所 示 。 
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标签 : figure 当前 点 [467 200] 位置: [520. 372, 831, 428] 


2-11 添加 “图 像 放大 缩小 ”按钮 


在 图 像 的 放大 与 缩小 面板 里 ， 添 加 图 像 要 放大 与 所 缩小 高 宽 尺 寸 ， 具 体 代码 如 下 : 


global imgGray 

H = str2num( get(handles.edit2, 'string') ); る 获取 数值 -- 长 
W = str2num( get (handles.edit3, 'string') ); る 获取 数值 -- 宽 
img3 = imresize (imgGray, [H,W]); 

axes (handles.axes2) 

imshow (img3, []) 


运行 GUI， 得 到 如 图 2-12 所 示 结 果 。 
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图 2-12 ”图 像 缩放 到 128X128 大 小 


(4) 进行 图 像 的 旋转 操作 ， 图 像 的 旋转 需要 指定 一 个 要 旋转 的 角度 ， 因 此 该 按钮 也 需要 一 个 用 户 输入 的 数值 框 ， 具体 如 图 2-13 所 示 。 
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243 添加 “图 像 旋转 ”按钮 
如 图 2-13 所 示 ， 添 加 图 像 的 旋转 按钮 ， 默 认 旋转 的 角度 为 10*， 具 体 代码 如 下 : 


global imgGray 

angle - str2num( get (handles.edit4, 'string') ); % 获取 数值 
img4 = imrotate (imgGray,angle); 

axes (handles.axes2) 

imshow (img4, []) 


运行 程序 ， 得 到 如 图 2-14 所 示 结 果 。 
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(5) 图 像 的 加 噪声 处 理 ， 即 在 原始 的 图 像 上 进行 图 像 的 噪声 添加 ， 采 用 高 斯 噪声 进行 图 像 噪声 的 添加 ， 由 于 高 斯 噪声 同样 涉及 均值 和 方差 ， 因 此 也 需要 两 个 输入 数值 框 ， 具 体 按钮 拖 放 位 置 如 图 2-15 


2-14 图 像 旋转 10” 


所 示 。 
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图 2-15 ”添加 “高 斯 白 噪声 ”按钮 


如 图 2-15 所 示 ， 系 统 默 认 均 值 为 0、 方 差 为 0.01 的 白 噪声 ， 代 码 如 下 : 


global imgGray 

u = str2num( get (handles.edit5,'string') ); $ 获取 数值 -- 均 值 
d = str2num( get(handles.edit6, "string') );  $ 获取 数值 -- 方 差 
img5 = imnoise (imgGray, 'gaussian',u,d); 

axes (handles .axes2) 

imshow (img5, [] ) 


运行 GUI， 得 到 如 图 2-16 所 示 结 果 。 
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图 2-16 ”加 入 方差 为 0.01 的 白 噪 声 


(6) 进行 图 像 的 中 值 滤波 操作 ， 中 值 滤波 是 一 个 非 线性 滤波 器 ， 采 用 信号 的 中 值 作为 当前 信号 块 的 信号 值 ， 采 用 逐 行 逐 列 的 扫描 达到 滤波 的 目的 ， 该 滤波 方法 较为 简便 易 操 作 ，“ 中 值 滤波 ”按钮 拖 放 
具体 如 图 2-17 所 示 。 
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2-17 添加 “中 值 滤波 ”按钮 


由 于 中 值 滤波 需要 输入 模板 掩 膜 的 高 与 宽 ， 因 此 也 需要 留置 两 个 数值 输入 框 供用 户 自行 输入 用 ， 在 “中 值 滤波 ”按钮 下 写 入 下 列 代码 : 


global imgGray 

h = str2num( get (handles.edit7, 'string' jr る 获取 数值 -- 高 
w = str2num( s rs edit8,' string') る 获取 数值 -- 宽 
img6-medfilt2 (imgGray, [h,w]); $ B ETEN 

axes (handles .axes2) 

imshow (img6, []) 


运行 GUI， 得 到 如 图 2-18 所 示 结 果 。 
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(7) 进行 图 像 的 二 值 化 操作 ， 拖 放 按钮 如 图 2-19 所 示 。 


在 图 像 的 二 值 化 按钮 下 ， 写 入 如 下 代码 : 


global imgGray 

bwl = im2bw (imgGray) ; 
axes (handles.axes2) 
imshow (bwl, []) 
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得 到 如 图 2-20 所 示 结 果 。 
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249 添加 “图 像 的 二 值 化 ”按钮 
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24 GUI 的 优化 布局 
2.3 节 图 2-20 所 示 的 图 像 的 二 值 化 为 设计 的 初始 GUI 布局 ， 此 时 GUI 布局 比较 凌乱 ， 因 此 需要 对 其 进行 编辑 ， 达 到 优化 布局 的 效果 ，MATLAB 提 供 了 GUI 对 齐 工具 ， 如 图 2-21 所 示 。 
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2-21 ”对 齐 工具 


如 图 2-21 所 示 ，GUI 对 齐 有 纵向 对 齐 和 横向 对 齐 ， 能 够 全 面 而 系统 地 对 GUI 进 行 优化 ， 调 整 GUI 的 布局 ， 手 动 随意 地 拖 动 每 个 按钮 的 位 置 即 可 ， 此 时 每 个 按钮 的 功能 程序 已 经 写 入 对 应 的 脚本 文件 ， 按 钮 
的 功能 在 代码 不 修改 的 前 提 下 ， 其 功能 是 不 会 改变 的 。 


采用 图 2-21 所 示 工 具 进 行 GUI 的 布局 ， 得 到 如 图 2-22 所 示 结 果 。 
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图 2-22 ”GUI 优化 布局 


此 时 GUI 已 经 布局 完成 ， 当 然 用 户 也 可 以 按照 自己 的 使 用 习惯 进行 合理 的 布 


dll 


之 后 可 以 采用 布局 完成 的 GUI 进行 图 像 的 一 些 列 处 理 ， 如 图 2-23 所 示 。 
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[2-23 ”用户 GUI 有 界面 


IR] 


此 时 用 户 加 载 图 像 ， 可 以 进行 图 像 的 基本 运算 、 图 像 均 衡 、 图 像 的 放大 与 缩小 、 彩 色 图 像 转 灰 度 图 像 、 旋 转 、 加 噪声 操作 、 滤 波 去 噪 、 直 方 图 统计 以 及 均衡 化 处 理 、 二 值 化 处 理 等 ， 如 图 2-24 所 示 。 
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2-24 图像 的 三 维 视图 


由 此 一 个 功能 较为 齐全 的 GUI 软件 即 设计 完成 。 此 时 用 户 只 需要 单 击 相应 按钮 ， 即 可 得 到 相应 的 结果 。 


25 “日 期 格式 函数 


MATLAB FINANCIAL TOOLBOX 提 供 了 大 量 的 日 期 操作 函数 ， 具 体 有 now 函 数 、today 函 数 、datefind 函 数 、day 函 数 、datevec 函 数 、eomdate 函 数 、hour 函 数 、|Iweekdate 函 数 、second 函 数 、 
minute 函 数 、month 函 数 、months 函 数 、nweekdates 函 数 、weeknum 函 数 、year 函 数 、yeardays 函 数 。 以 下 将 选取 比较 常用 的 转换 函数 ， 介 绍 其 使 用 方法 。 


(1) now 函 数 


>> time = now 
time = 


7.3656e+05 


now 函 数 显示 的 是 公元 0 年 到 目前 的 天 数 。 


相应 的 转化 为 日 历 上 的 表示 方法 为 : 


>> datestr (time) 
ans — 


21-Aug-2016 13:23:31 


(2) datefind 函 数 


datefind 函 数 的 功能 为 : 对 于 一 个 时 间 表 t2， 用 户 需要 查询 的 时 间 为 t1， 用 户 可 以 设 定时 间 间 隔 为 13， 则 执行 datefind 函 数 能 够 获取 t1t3 在 时 间 表 t2 中 的 位 置 。 


clc,clear,close all 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
warning off $ 消除 警告 

feature jit off を 加 速 代码 运行 

tl = datenum(2016, 7, 1:31) 

t2 = [datenum(2016, 7, 10); datenum(2016, 7, 20)] 

Indices = datefind(t2, t1, 1) 


时 间 间 隔 为 1， 运 行程 序 则 输出 结果 如 下 : 


_ 136512 736513 736514 736515 736516 736517 
736518 736519 736520 736521 736522 736523 
736524 736525 736526 736527 736528 736529 
736530 736531 736532 736533 736534 736535 
736536 736537 736538 736539 736540 736541 


736521 
736531 


Indices = 


>> 


相应 的 设置 查询 时 间 间 隔 为 0 时 ， 


则 程序 执行 结果 如 下 : 


Indices = datefind(t2, tl, 0) 
Indices = 


10 
20 


(3) datevec 函 数 


datevec 函 数 将 输入 的 时 间 字符 呈 


转化 为 标准 的 农历 日 期 并 且 精 确 到 时 、 分 、 秒 。 具 体 代码 如 下 : 


>> format longG 


>> t = [datetime('now');datetime('tomorrow')] 


t- 
2016-08-21 13:44:03 
2016-08-22 00:00:00 


>> DateVector = datevec (t) 


DateVector - 

1225 
2016 
2016 

3 £ 4 列 
21 
22 

5 € 6l 
44 
0 


DateVector 是 一 个 2 行 6 列 的 数组 。 用 户 可 以 根据 DateVector 数 组 读 取 当 前 的 


(4) weeknum 函 数 


weeknum 函 数 获 取 一 个 公历 时 间 所 在 年 份 所 经 历 的 周 数 ， 即 经 过 了 多 少 周 达 到 


体 时 间 ， 例 如 ， 定 位 某 个 小 时 内 的 数 


了 当前 的 公历 时 间 ， 具 体 代码 如 下 : 


居 或 者 是 某 个 月 的 数 


xk 
1 


Clc,clear,close all 
warning off 

feature jit off 
time = now 

N1 = weeknum(time) 
N2 = weeknum('21-Aug-2016') 


ap ep 


time = 
736563.574777778 


Ema. 清理 工作 区 、 关 闭 显 示 图 形 
HRSA 
を 加 速 代码 运行 


即 2016 年 中 ， 到 达 8 月 21 日 经 历 了 35 周 。 


(5) year 函 数 


year 函 数 获取 当前 的 年 份 ， 具 体 代码 如 下 : 


>> Year = year(731798.776) 
Year = year('05-Aug-2016') 


Year = 

2003 
Year = 

2016 


26 “日 期 转化 函数 


Date Conversion 函 数 包 中 包含 date2time 函 数 、datedisp 函 数 、datenum 函 数 、datestr 国 数 、m2xdate 函 数 、time2date 函 数 、uicalendar 函 数 、x2mdate 函 数 。 这 些 函 数 的 


(1) date2time 函 数 


体 使 


介绍 如 下 。 


[TFactors, F] = date2time(Settle, Maturity, Compounding, Basis,EndMonthRule) 


该 函数 输入 中 Settle 为 初始 时 间 节 点 ，Maturity 为 结束 时 间 节 点 ， 其 中 Compounding 指 标 和 Basis 输 入 需要 用 户 注意 ， 


Compounding 指 标 设置 如 下 : 


体 使 用 如 下 。 


F is the compounding frequency, Z is the zero rate, and T is the time in periodic units, for example, T = F is one year. 


Compounding = 0 for simple interest 
Disc = 1/(1 + 

Compounding = 1, 2, 3, 4, 6, 12 
Disc = (1 + Z/F)^(-T), where 


Compounding = 365 
Disc = (1 + Z/F)^(-T), where 
Compounding = -1 
Disc = exp(-T*Z), where T is 


Z * T), where T is time in years and simple interest assumes annual times F = 1. 


F is the number of days in the basis year and T is a number of days elapsed computed by basis. 


time in years. 


对 于 我 国 日 历 方式 ， 具 体 设置 Compounding 为 365。 


Basis 指 标 设置 如 下 : 


actual/actual (default) 
30/360 (SIA) 

actual/360 

actual/365 

30/360 (PSA) 

30/360 (ISDA) 

30/360 (European) 
actual/365 (Japanese) 
actual/actual (ICMA) 
actual/360 (ICMA) 


VO Co —1 O) n S QQ N r O 


10 = actual/365 (ICMA) 
11 = 30/360E (ICMA) 

12 = actual/365 (ISDA) 
13 = BUS/252 


同样 的 ， 对 于 我 国 日 历 方式 ， 具 体 设置 Basis 为 10， 则 date2time 的 代码 如 下 : 


>> date2time('1/1/2000', '1/1/2001', 365, 10) 
ans = 

366 
>> date2time('1/1/2000', '1/1/2011', 365, 10) 
ans = 

4018 

>> date2time('1/1/2010', '1/1/2011', 365, 10) 
ans = 


365 


(2) datedisp 函 数 


datedisp 函 数 将 日 期 以 农历 方式 显示 ， 上 有 具体 代码 如 下 : 


>> time = [730730, 0.03, 1200 730100; 
730731, 0.05, 1000 NaN]; 


datedisp (time) 
01-Sep-2000 0.03 1200 11-Dec-1998 
02-Sep-2000 0.05 1000 NaN 


(3) datenum 函 数 


datenum 函 数 使 将 一 个 字符 串 的 时 间 转 化 为 公历 数字 显示 ， 具 体 代码 如 下 : 


DateString = '19-May-2001'; 
mq 


formatIn = 'dd-mmm-yyyy'; 
datenum (DateString, formatIn) 


ans = 


730990 


(4) datestre&Z& 


datestr 函 数 将 一 个 公历 日 期 转化 为 一 个 农历 日 期 显示 ， 具 体 代 码 如 下 : 


>> t = [datetime ('now') ;datetime ('tomorrow')] 
DateString - datestr(t) 


t- 
2016-08-21 14:23:32 
2016-08-22 00:00:00 

DateString - 


21-Aug-2016 14:23:32 
22-Aug-2016 00:00:00 


(5) m2xdate 函 数 


m2xdate 函 数 有 两 种 使 用 形式 ， 当 在 Excel 中 使 用 时 ，Jan.1，1900=1， 当 在 MATLAB 中 使 用 时 ，Jan.1，1900-693960 (for 1900date system) =2， 具 体 代 码 如 下 : 


>> DateNum = datenum(2001:2004, 12, 25) 
DateNum = 
731210 731575 731940 732306 


>> m2xdate (DateNum, 1) 
ans = 
35788 36153 36518 36884 


>> m2xdate (DateNum, 0) 
ans — 
37250 37615 37980 38346 


>> datenum('1-Jan-1900') 
ans = 
693962 


(6) time2date 函 数 


time2date 函 数 与 date2time 函 数 恰恰 相反 ， 具 体 使 用 也 和 date2time 相 对 应 ， 具 体 代码 如 下 : 


里 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 


clc,clear,close all 


warning off 除 警告 
feature jit off を 加 速 代 码 运 行 


Settle = '1-Sep-2002'; 
Dates = datenum(['31-Aug-2005'; '28-Feb-2006'; '15-Jun-2006'; 
'31-Dec-2006']); 
Compounding = 2; 
Basis = 0; 
EndMonthRule = 1; 
TFactors = date2time(Settle, Dates, Compounding, Basis,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
EndMonthRule) 


运行 程序 ， 输 出 结果 如 下 : 


TFactors = 


5.99447513812155 
6.99447513812155 
7.57377049180328 
8.65760869565217 


27 ”创建 一 个 金融 时 间 数 据 序列 


MATLAB 工 具 箱 金 融 工具 的 使 用 ， 较 多 的 使 用 了 固定 的 格式 ， 用 户 需要 按照 输入 的 数据 格式 ， 方 可 进行 函数 的 调用 ， 从 而 达到 用 户 的 目标 。 


MATLAB 提 供 了 fints 函 数 用 于 传递 一 个 金融 时 间 数 据 序 列 ， 具 体 如 下 : 


(1) 获取 数据 索引 如 下 : 


>> data = [1:7]' 


data = 


RwNE 


由 此 得 到 相应 的 7 个 数据 索引 。 


(2) 获取 当前 的 时 间 序列 ， 具 体 代 码 如 下 : 


>> dates = [today:today*6]' 
dates = 


736563 
736564 
736565 
736566 
736567 
736568 
736569 


通过 today 获 取 今 天 开始 的 7 天 数据 。 


(3) 由 fints 函 数 获 取 时 间 序 列 数据 ， 具 体 代 码 如 下 : 


>> data = fints(dates, data) 
data = 


desc: (none) 
freq: Unknown (0) 


'dates: (7)' 'seriesl:  (7)' 
'21-Aug-2016' 11 
'22-Aug-2016' 2] 
'23-Aug-2016' 3] 
'24-Aug-2016' 4] 
'25-Aug-2016' 5] 
'26-Aug-2016' 6] 
'27-Aug-2016' 7] 
(4) 此 时 可 以 进行 绘图 ， 具 体 代 码 如 下 : 


>> plot (data) 


运行 程序 ， 得 到 结果 如 图 2-25 所 示 。 


如 图 2-25 所 示 ， 横 轴 为 相应 的 时 间 ， 纵 轴 设 置 为 相应 的 索引 值 。 


1 
20-Aug-2016 23-Aug-2016 26-Aug-2016 29-Aug-2016 


2-25 时间 序列 画图 


i] 


当然 ， 用 户 也 可 以 转化 为 mat 数 组 进行 画图 ， 具 体 转化 如 下 : 


>> fts2mat (data) 


ans — 


-o Uu wm 


>> 


注意 : 通过 对 fints 函 数 的 设置 ， 可 以 很 好 地 设置 x 轴 显 示 的 时 间 刻 度 。 如 果 通过 plot ([: 6]) 来 画图 ， 则 将 x 轴 设置 为 时 间 刻 度 显 示 方 式 将 很 困难 ， 这 也 是 很 多 网 友 所 关注 的 问题 。 


28 股票 技术 分 析 图 函数 使 用 


(1) 集散 指标 (Accumulation/Distribution oscillator) 


集散 指标 Accumulation/Distribution oscillator 是 由 股票 最 高 价 、 股 票 最 低 价 、 股 票 开盘 价 以 及 股票 收盘 价 决定 的 参考 指标 。 


集散 指标 数值 越 高 ， 则 表明 该 集散 指标 表示 股票 股价 变化 的 分 布 就 越 明 显 ， 给 投资 者 的 参考 信息 也 就 越 多 。 


具体 的 MATLAB 工 具 箱 函数 如 下 : 


ado = adosc (highp, lowp, openp, closep) 

ado = adosc([highp lowp openp closep]) 

adots = adosc (tsobj) 

adots = adosc(tsojb, 'ParameterName', ParameterValue, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/...) 


其 中 ，highp 表 示 股 票 最 高 价 ，lowp 表 示 股 票 最 低 价 ，openp 表 示 股 票 开盘 价 ，closep 表 示 股 票 收盘 价 ，tsobj 表 示 一 个 时 间 序 列 结构 体 数据 ，ParameterName 有 4 种 类 型 ， 具 体 如 下 : 


HighName: high prices series name 
LowName: low prices series name 
OpenName: opening prices series name 
CloseName: closing prices series name 


使 用 adosc 函 数 进行 分 析 画 图 如 下 : 


clc,clear,close all を 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 


warning off を 消除 警告 
feature jit off $ 加 速 代 码 运行 


load('data000001.mat') 


openprice = data000001(: D, ; % 开盘 价 
highprice = data000001(:,2)'; % 最 高 价 
lowprice = data000001(:,3)'; % 最 低 价 


Closeprice = data000001(:,4)'; る 收盘 价 


load disney.mat 
range = [1:420]; 
dates = [dis.dates (range) ]+6500; 


% 第 一 种 


dis ADOsc = adosc (highprice, lowprice, openprice, closeprice); 


figure (1) 

plot (dis ADOsc) 

title('A/D Oscillator for Disney') 
dis ADOsc - adosc(dis); 

figure (2) 

plot(dis ADOsc) 

title('A/D Oscillator for Disney') 


运行 程序 ， 输 出 结果 如 图 2-26 所 示 。 
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(2) 蔡 金 摆动 指标 chaikosc oscillator 


2-26 ”集散 指标 


蔡 金 摆动 指标 chaikosc oscillator 是 由 股票 最 高 价 、 股 票 最 人 


氏 价 、 股 票 收 盘 价 以 及 股票 成 交 量 共同 决定 的 参考 指标 。 


一 般 情 况 下 ， 蔡 金 摆动 指标 正常 围绕 x 轴 上 下 摆动 震荡 ， 对 于 


具体 的 MATLAB 工 具 箱 函数 如 下 : 


票 的 大 幅 上 涨 和 大 幅 下 跌 具有 较 强 的 敏感 性 ， 当 蔡 金 指标 出 现 异常 波动 时 ， 投 资 者 应 该 注意 股票 的 买 入 卖 出 点 。 


chosc = chaikosc(highp, lowp, closep, tvolume) 
chosc = chaikosc([highp lowp closep tvolume]) 
choscts = chaikosc (tsob] ) 


choscts = chaikosc(tsobj, 'ParameterName', ParameterValue, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... ) 


其 中 ，highp 表 示 股 票 最 高 价 ，lowp 表 示 股 票 最 低 价 ，closep 表 示 股 票 收盘 价 ，tvolume 表 示 股 票 的 成 交 量 ，tsobj 表 示 一 个 时 间 序 列 结构 体 数 据 ，ParameterName 有 4 种 类 型 ， 具 体 如 下 : 


HighName: high Prices series name 
LowName: low prices series name 
CloseName: closing prices series name 
VolumeName: volume traded series name 


使 用 chaikosc 函 数 进行 分 析 画 图 ， 具 体 代 码 如 下 : 


清理 命令 区 


c1c, clear, close all 


~ HETEK XH 


warning off を 消除 警告 
feature jit off 


1oad('data000001.mat') 


% 加 速 代码 运行 


openprice = data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; を 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 
closeprice = data000001(:,4)'; % 收盘 价 
volume = data000001(:,5)'; $ 成 交 量 


load disney.mat 

range = [1:420]; 

dates = [dis.dates (range) ]+6500: 
$ dates = datestr (dates) '; 

disl - fints (dates, 
dis CHAIKoscl 
dis CHAIKoscl 


chaikosc( disl ); 


figure (1) 
plot (dis CHAIKoscl) 
title('Chaikin Oscillator for Disney') 


[openprice;highprice;lowprice;closeprice;volume]', 
chaikosc (highprice, lowprice, closeprice, volume ); 


[('OPEN' }, (' HIGH') , (' LOW' }, ('CLOSE'], ('VOLUME']] 


5: 


运行 程序 ， 输 出 结果 如 图 2-27 所 示 。 


12-Jan-2014 


采用 MATLAB 自 带 的 数据 包 进 行 蔡 金 指标 画 


图 ， 代 码 如 下 : 


Chaikin Oscillator for Disney 


28-Jul-2014 


227 蔡 金 摆动 指标 


10-Feb-2015 


— — — ChaikOsc 


26-Aug-2015 


load disney.mat 

dis CHAIKosc2 = chaikosc (dis); 

figure (2) 

plot(dis CHAIKosc2) 

title('Chaikin Oscillator for Disney') 


运行 程序 ， 输 出 结果 如 图 2-28 所 示 。 
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2-28 ” 荣 金 指标 绘图 


如 图 2-27 和 图 2-28 所 示 ， 蔡 金 指标 对 于 股票 的 长 期 趋势 是 稳定 的 围绕 x 轴 变化 的 ， 当 股票 异常 变化 时 ， 蔡 金 指标 也 表现 较 大 的 振幅 ， 提 供给 投资 者 的 信息 量 也 逐渐 增 大 。 对 于 编程 方法 ， 读 者 可 以 仔细 
对 照 图 2-27 生 成 图 所 用 的 构造 时 间 序 列 数据 的 编程 格式 。 


(3) 指数 平滑 异同 平均 线 Moving Average Convergence/Divergence 


指数 平滑 异同 平均 线 Moving Average Convergence/Divergence 也 叫 MACD 曲 线 。MACD 曲 线 是 由 DIF 指 标 、DEA 指 标 计算 得 到 的 。DIF 指 标 是 由 股票 收盘 价 的 长 短 周期 平滑 计算 差 值 得 到 的 ，DEA 则 
是 由 DIF 短 周期 平滑 计算 得 到 的 ， 而 MACD 曲 线 则 由 DIF 与 DEA 的 2 倍 的 差 值 计算 得 到 。 


MACD 曲 线 反映 了 股票 的 价格 走势 ，MACD 曲 线 趋势 向 下 时 ， 则 表示 股票 下 降 趋 势 较 大 ;相反 ，MACD 曲 线 趋势 向 上 时 ， 则 表示 股票 上 涨 趋势 较 大 。 


具体 的 MATLAB 工 具 箱 函数 如 下 : 
[macdvec, nineperma] = macd(data) 
[macdvec, nineperma] = macd(data, dim) 


macdts = macd(tsobj, series name) 


其 中 ，data 表 示 输 入 的 股票 数据 ，dim 则 一 般 默 认 情况 输入 为 1， 表 示 对 一 组 股票 数据 进行 分 析 ，tsobj 表 示 一 个 时 间 序 列 结构 体 数据 ，series_ name 可 以 指定 输入 数据 的 表 头 名 称 。 具 体 的 MACD 使 有 
如 下 : 


% 参考 本 代码 ， 请 引用 并 注 明 本 书信 息 〈 余 胜 威 ) 
clc,clear,close all $ 清理 命令 区 、 清 理工 作 区 、 关 闭 显示 图 形 
warning off 肖 除 警告 

feature jit off $ 加 速 代 码 运行 


load('data000001.mat') 


openprice - data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; を 最 高 价 
lowprice = data000001(:,3)'; る 最 低 价 
closeprice = data000001(:,4)'; $ 收盘 价 
volume = data000001(:,5)'; % 成 交 量 


load disney.mat 

range = [1:420]; 

dates = [dis.dates (range) ] 16500; 

disl = fints (dates, [openprice;highprice;lowprice;closeprice;volume]', [('OPEN'), ('HIGH']), (' LOW' J, ('CLOSE'), ('VOLUME']] ); 
) 


( 

- ( 
dis CHAIKosc3 - macd( disl, 'HIGH'); 
dis CHATKosc4 = ( dis1, 'CLOSE'); 
dis CHAIKosc5 = macd( b 
figure (1) 
plot(dis CHAIKoscl) 
title ('MACDIIZE ' 


运行 程序 ， 输 出 结果 如 图 2-29 所 示 。 
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第 3 草 ”时 间 序 列 数据 处 理 


时 间 序 列 数据 处 理 ， 需 要 了 解 时 间 序 列 数据 的 波动 情况 ， 具 体 包括 平均 值 、 最 大 值 和 最 小 值 等 。 本 章 基 于 时 间 序列 数据 处 理 ， 具 体 讲解 平均 绝对 离 差 指标 AVEDEV、 序 列 最 大 值 指标 HHV、 序 列 最 小 值 
函数 LLV、 简 单 移动 平均 值 指标 SMA、 动 态 移动 平均 值 指标 PDMA、 指 数 平滑 移动 平均 值 指标 EMA 和 指数 移动 平均 值 指标 EDMA 等 数据 处 理 方法 ， 为 后 续 章节 提供 算法 基础 函数 。 


3.1 平均 绝对 离 差 


平均 绝对 离 差 (mean absolute deviation 或 者 average absolute deviation) : 计算 各 观察 值 与 平均 值 的 距离 总 和 ， 然 后 取 其 平均 数 。 


平均 绝对 离 差 AVEDEV 用 于 计算 平均 绝对 离 差 AEVDEV 指 标 值 。 


举 个 简单 的 例子 ,假设 3 个 数 为 1、2、3， 那 么 平均 值 为 2， 假 设计 算 周 期 为 3， 则 平均 绝对 离 差 为 : 


1-2|+|2-2|+|3-2| 


其 中 | 为 取 绝对 值 操作 。 


因此 具体 的 平均 绝对 离 差 AVEDEV 公 式 可 总 结 为 : 


sum|| price, 一 mean( price,, period 
avedev, — - 
period 


其 中 ，price 为 输入 的 数据 矩阵 ; period 为 计算 周期 ，period>1，period 为 整数 ; avedev 为 相应 的 平均 绝对 离 差 值 。 


相应 平均 绝对 离 差 AVEDEV 公 式 其 含义 为 : 当期 price 值 减 去 前 period 个 price 值 的 平均 值 的 绝对 总 和 ， 然 后 取 其 平均 值 。 


由 此 编写 具体 的 平均 绝对 离 差 AVEDEV 函 数 如 下 : 


function avedev com-AVEDEV (c1osePrice,period) 
$ 函 数 功能 :AVEDEV- 平 均 绝对 离 差 
S 间 变 化 ， 即 为 行 向 量 
A: 
closePrice- 为 输入 的 数据 矩阵 
Period- 为 计算 的 周期 数 
输出 : 
avedev_com: 平均 绝对 离 差 
avedev com-nan*ones (size (closePrice,1),size(closePrice,2)); $ 初始 化 
for j-1:size(closePrice,1) $ 行 
for i-period:length (closePrice) 
avedev com(j,i) = sum(abs (closePrice(j,i-period41:i)-mean (closePrice (j,i-period4*1:i)))) /period; 
end 


进行 实例 计算 ， 具 体 如 下 : 


clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 
feature jit off s 加 速 通道 
closePrice = [11.54 11.62 11.99 12.33 13.38 13.01 13.42 13.7 13.43 14.6 16 17.01 18.01 19.69 21.6 25.8 23.6 28.5 27.23 31.08 
11.42 11.81 11.88 12.78 13.27 T3. 14.09 13.46 14.28 15.18 17.57 16.6 18.85 21.5 23.66 25.91 27.99 28.65 29 28.59 23.7 22.4 
period =5; $ 计算 周期 
avedev = AVEDEV (closePrice, period) る RARVEDEV- 平 均 绝 对 离 差 
figure (1) 
subplot (121) , plot (closePrice', '.-') ;xlabel('t') ;ylabel(' 收 盘 价 ') 
subplot (122) , plot (avedev', ' .-'); xlabel('t');ylabel ('AVEDEV- 平 均 绝对 离 差 ') 
运行 结果 如 下 : 
avedev = 
Columns 1 through 6 
NaN NaN NaN NaN 0.5464 0.5832 
NaN NaN NaN NaN 0.6344 0.5784 


Columns 7 through 12 

0.5328 0.3984 0.1544 

0.5552 0.3480 0.4360 
Columns 13 through 18 

1.4360 1.4304 1.7464 2.6224 2.3680 2.6496 

1.4128 1.7880 2.3552 2.8632 2.7256 2.3696 
Columns 19 through 24 

2.1968 2.0384 1.9536 1.8400 2.6608 3.1320 

1.8056 0.8624 1.5544 2.7344 2.9608 2.0616 
Column 25 

2.2128 

0.7664 


.4144 0.8560 
.5936 1.1672 


.2456 
.3336 


eco 


得 到 相应 的 图 形 如 图 3-1 所 示 。 


35 3.5 
3 
30 
2.5 
3 | 
ke 
25 R 
2 
< 3 
= " 
学 X 1.5 
20 m 
山 
& 1 
15 
0.5 
10 0 
0 5 10 15 20 25 
t t 


图 3-1 平均 绝对 离 差 绘 图 


分 析 上 证 指数 如 下 : 


yp 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


warning off 


feature jit off を 加 速 通道 

load('data.mat') 

closePrice - data'; 

period -5; を 计算 周期 

avedev = AVEDEV (closePrice, period) を AVEDEV- 平 均 绝对 离 差 
figure (1) 

subplot (121) , plot (closePrice', '.-') ;xlabel('t');ylabel(' 收 盘 价 ') 


subplot (122) ,plot (avedev', '.-'); 


xlabel ('t') ;ylabel ('AVEDEV- 平 均 绝对 离 差 ') 


得 到 相应 的 图 形 如 图 3-2 所 示 。 


7000 


6000 


5000 


4000 


收盘 价 


3000 


2000 


350 


300 L 


250 上 


200 上 


150 上 


100 上 


AVEDEV- 平 均 绝对 高 差 


0 TU UPS 


32 序列 最 大 值 


序列 最 大 值 HHV 用 于 计算 一 个 period 周 期 内 的 最 大 值 。 


例如 ， 一 个 数列 [1，1，7，4，0，6，3，0，8，7]， 假 设 序列 计算 周期 period=5， 求 其 HHV 序 列 最 大 值 ， 


对 于 数列 第 1 个 元 素 1， 由 于 以 第 1 个 元 素 为 基点 ， 数 列 向 左 无 period= 5 个 元 素 ， 


对 于 数列 第 2 个 元 素 1， 由 于 以 第 2 个 元 素 为 基点 ， 数 列 向 左 无 period= 5 个 元 素 ， 


对 于 数列 第 3 个 元 素 7， 由 于 以 第 3 个 元 素 为 基点 ， 数 列 向 左 无 period= 5 个 元 素 ， 


对 于 数列 第 4 个 元 素 4， 由 于 以 第 4 个 元 素 为 基点 ， 数 列 向 左 无 period= 5 个 元 素 ， 
对 于 数列 第 5 个 元 素 0， 由 于 以 第 5 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 
HHV (5) =max ([1, 1, 7, 4, 0]) =7 
对 于 数列 第 6 个 元 素 6， 由 于 以 第 6 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 
HHV (6) =max ([1, 7, 4, 0, 6]) =7 
对 于 数列 第 7 个 元 素 3， 由 于 以 第 7 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 
HHV (7) =max (I7, 4, 0, 6, 3]) =7 
对 于 数列 第 8 个 元 素 0， 由 于 以 第 8 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 


HHV (8) =max ([4, 0, 6, 3, 0]) =6 


对 于 数列 第 9 个 元 素 8， 由 于 以 第 9 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 


HHV (9) =max ([0, 6, 3, 0, 8]) =8 
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图 3-2 ”上 证 指数 分 析 


体操 作 如 下 : 


HHV (1) =NaN: 


HHV (2) =NaN; 


HHV (3) =NaN; 


HHV (4) =NaN; 


pu 


对 于 数列 第 10 个 元 素 7， 由 于 以 第 10 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 则 


HHV (10) =max ([6, 3, 0, 8, 7]) =8 


由 此 可 写 出 求解 HHV 序 列 最 大 值 的 求解 公式 ， 具 体 如 下 : 


HHV, — NaN, t« period 


…。 price 


1— period * ` t— period+( period 1) 


HHV, = max [ price , price, ) t Z period 


其 中 ，price 为 输入 的 数据 矩阵 period 为 计算 的 周期 数 ，period> 1, 75883. 


公式 的 含义 : 当时 间 点 小 于 周期 数 period 时 ，HHV 等 于 NaN; 当时 间 点 大 于 等 于 周期 period 时 ， 则 HHV 等 于 相连 period 周 期 内 的 price 最 大 值 。 


由 此 编写 相应 的 HHV 函 数 程序 如 下 : 


function hhv com = HHV (price, period) 
aie: HEV- 序 列 最 大 值 

pri ce- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1 


答 出 : 
hhv com: HHV- 序 列 最 大 值 
hhv com=nanxones (size (price,1),size(price,2)); $ 初始 化 
if length (price)»period る 每 一 行 变量 的 长 度 是 否 大 于 Period 
for j=1:size (price, 1) を 行 ， 每 一 行 一 个 时 间 序列 数据 
for i-period:length (price) も 从 period 周 期 开始 计算 
hhv com(j,i)-max (price (j,i-period*l:i)); る 求 最 大 值 
end 
end 


编写 实际 应 用 案例 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off を 加 速 通道 
closePrice = [11.54 11.62 11.99 12.33 11.74 12.87 12.33; 
13.01 13.42 13:3 13.43 12.3087 11.74 12.33]; 
period = 5; s 周期 
hhv=HHV (closePrice, period) $ HHV- 序 列 最 大 值 
figure (1) 
subplot (121) , plot (closePrice', '.-') ;xlabel('t') ;ylabel(' 收 盘 价 ') 
subplot (122) ,plot (hhv', '.-'); xlabel ('t') ;ylabel('HHV- 序 列 最 大 值 ') 
运行 程序 输出 结果 如 下 : 
hhv = 
NaN NaN NaN NaN 12.3300 12.8700 12.8700 
NaN NaN NaN NaN 13.4300 13.4300 13.4300 
输出 图 形 如 图 3-3 所 示 。 
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图 3-3 ”序列 最 大 值 绘 


分 析 上 证 指数 如 下 : 


Clc,clear,close all 
warning off 
feature jit off 
load('data.mat') 
closePrice = data'; 


period -5; る 计算 周期 

hhv=HHV (closePrice, period) $ HHV- 序 列 最 大 值 

figure (2) 

subplot (121) , plot (closePrice', '.-') ;xlabel ('t');ylabel(' 收 盘 价 ') 
subplot (122) ,plot (hhv','.-'); xlabel('t') ;ylabel('HHV- 序 列 最 大 值 ') 


得 到 相应 的 图 形 如 图 3-4 所 示 。 
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33 ”序列 最 小 值 


序列 最 小 值 LLV 用 于 计算 一 个 period 周 期 内 的 最 小 值 。 


例如 ， 一 个 数列 [1，8，2，8,， 0,3, 7, 8, 2, 4, 1 


对 于 数列 第 1 个 元 素 1， 
对 于 数列 第 2 个 元 素 8， 
对 于 数列 第 3 个 元 素 2， 
对 于 数列 第 4 个 元 素 8， 


对 于 数列 第 5 个 元 素 0， 


LLV (5) 


LLV (6) 


LLV (7) 


对 于 数列 


LLV (8) 


LLV (9) 


对 于 数列 


对 于 数列 


LLV (10 


由 于 以 第 1 个 元 素 为 基点 ， 


=min ([1, 


由 于 以 第 5 个 元 素 为 基点 ， 


8, 2, 8, 0]) =0 


对 于 数列 第 6 个 元 素 3， 


=min ([8, 


由 于 以 第 6 个 元 素 为 基点 ， 


2, 8, 0, 3]) =0 


对 于 数列 第 7 个 元 素 7， 


=min ([2, 


由 于 以 第 7 个 元 素 为 基点 ， 


8, 0, 3, 7]) =0 


=min ([8, 


第 8 人 元素 8, 


由 于 以 第 8 个 元 素 为 基点 ， 


0, 3, 7, 8]) =0 


对 于 数列 第 9 个 元 素 2， 


=min ([0, 


) =min ([3, 


由 于 以 第 9 个 元 素 为 基点 ， 


3, 7, 8, 2]) =0 


7, 8, 2, 4]) =2 


LLV (11) =min ([7, 8, 2, 4, 1]) =1 
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由 此 可 写 出 求解 LLV 序 列 最 小 值 的 求解 公式 ， 具 体 如 下 : 


向 左 无 period= 5 个 元 素 ， 


向 左 无 period= 5 个 元 素 ， 


向 左 无 period= 5 个 元 素 ， 


向 左 无 period= 5 个 元 素 ， 


向 左 有 period= 5 个 元 素 ， 


向 左 有 period= 5 个 元 素 ， 


向 左 有 period= 5 个 元 素 ， 


向 左 有 period= 5 个 元 素 ， 


向 左 有 period= 5 个 元 素 ， 
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图 3-4 上 证 指数 序列 最 大 值 分 析 


， 假 设 序列 计算 周期 period=5， 求 其 LLV 序 列 最 小 值 。 具 体操 作 如 下 : 


LLV (1) =NaN: 


LLV (2) =NaN: 


LLV (3) =NaN: 


LLV (4) =NaN: 


第 10 个 元 素 4， 由 于 以 第 10 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 则 


第 11 个 元 素 1， 由 于 以 第 11 个 元 素 为 基点 ， 数 列 向 左 有 period= 5 个 元 素 ， 则 


5000 


LLV = NaN, t< period 


. . = 2 .` . > . 
LLV, = min| price » DrICE, period+( period-1)> Pr ice, |, t = period 


t- period 41 ° ` 


其 中 ，price 为 输入 的 数据 矩阵 ;period 为 计算 的 周期 数 ，period> 1， 为 整数 。 


公式 的 含义 : 当时 间 点 小 于 周期 数 period 时 ，LLV 等 于 NaN; 当时 间 点 大 于 等 于 周期 period 时 ， 则 LLV 等 于 相连 period 周 期 内 的 price 最 小 值 。 


由 此 编写 相应 的 LLV 函 数 程序 如 下 : 


function llv com = LLV (price,period) 
K 1Iv- 序 列 最 小 值 

% 输入 : 

$ Price- 为 输入 的 数据 矩阵 

を Period- 为 周期 ，>= 1 


llv com 11v- 序 列 最 小 值 


llv com-nan*ones (size(price,1),size(price,2)); $ 初始 化 
if length (price)»period $ 每 一 行 变量 的 长 度 是 否 大 于 period 
for j=1:size (price, 1) $ 行 ， 每 一 行 一 个 时 间 序 列 数据 
for i-period:length (price) も 从 period 周 期 开始 计算 
llv com(j,i)-min(price(j,i-period*1:i)); $ 求 最 小 值 
end 
end 
end 


编写 实际 应 用 案例 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 

warning off を 取消 警告 

feature jit off $ 加 速 通道 

closePrice = [11.54 11.62 11.99 12.33 11.74 12.87 12.33; 

13.01 13.42 13:3 13.43 12.3087 11.74 12.33]; 

period = 5; る 周期 

llv=LLV (closePrice, period) る LLV- 序 列 最 小 值 

figure (1) 

subplot (121) , plot (closePrice', '.-') ;xlabel('t') ;ylabel(' 收 盘 价 ') 

subplot (122),plot(llv','.-'); xlabel('t');ylabel('LLV- 序 列 最 小 值 ') 

运行 程序 输出 结果 如 下 : 

llv = 
NaN NaN NaN NaN 11.5400 11.6200 11.7400 
NaN NaN NaN NaN 12.3087 11.7400 11.7400 


得 到 相应 的 图 形 如 图 3-5 所 示 。 
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图 3-5 ”序列 最 小 值 绘 


分 析 上 证 指数 如 下 : 


clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 

feature jit off を 加 速 通道 

load('data.mat') 

closePrice = data'; 


hi 


period -5; を 计算 周期 

llv-LLV (closePrice, period) も LLV- 序 列 最 小 值 

figure (2) 

subplot (121) , plot (closePrice', '.-') ;xlabel('t') ;ylabel(' 收 盘 价 ') 
subplot (122) ,plot (1lv','.-'); xlabel ('t') ;ylabel('LLV- 序 列 最 小 值 ') 


得 到 相应 的 图 形 如 图 3-6 所 示 。 
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图 3-6 ”上 证 指数 序列 最 小 值 分 析 


3.5 ”动态 移动 平均 值 


动态 移动 平均 值 DMA 用 于 计算 一 个 时 间 序 列 数据 的 动态 移动 平均 值 。 假 设 当前 序列 值 的 权 值 为 weight， 则 前 一 周期 的 权重 为 1-weight。 


假设 一 组 数列 为 [1，1，7]， 令 a=1、b=1、c=7， 设 weight=0.5， 则 DMA 动 态 移动 平均 值 计算 如 下 : 
DMA (1) =a=1 

DMA (2) =weight*b+ (1-weight) *DMA (1) =0.5x1+ (1-0.5) x1=1 

DMA (3) =weight*c+ (1-weight) *DMA (2) =0.5x7+ (1-0.5) x1=4 


因此 具体 的 DMA 公 式 可 总 结 为 : 


DMA, = price, t-1 


DMA, = weight x price, + (1— weight)x DMA, , 


其 中 ，price 为 输入 的 时 间 序列 数据 ，weight 为 相应 的 权重 参数 ， 当 前 序列 值 的 权重 ， 为 小 数 。 


公式 含义 为 : 当前 周期 DMA 值 =weightx 当 前 周期 价格 + (1-weight) x 上 一 周期 DMA 值 。 


由 此 编写 具体 的 动态 移动 平均 值 DMA 函 数 如 下 : 


. $22 


4000 


5000 


function dma com-DMA (price, weight) 
$ 2 DMA- 动 态 移动 平均 值 
% WA: 
Price- 为 输入 的 数据 矩阵 
" weight- 为 权重 参数 ， 表 示 当 前 序列 值 的 权重 0 < weight <= 1， 为 小 数 


DE 

dma com: 动态 移动 平均 值 
dma com(:,1)-price(:,1); 
for i-2:length (price) 


dma com(:,i)-weight*price (:,i)*(l-weight)*dma com(:,i-1); 
end 


进行 具体 的 实例 计算 ,具体 代码 如 下 : 


clc,clear, close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 
feature jit off s 加 速 通道 
ClosePrice = [11.54 11.62 11.99 12.33 13.38; 
13.01 13.42 13.7 13.43 14.6]; 
weight -0.5; s 权 值 系 数 
dma=DMA (closePrice, weight) 名 DMA- 动 态 移动 平均 值 
figure (1) 
subplot (121) , plot (closePrice', '.-') ;xlabel ('t');ylabel(' 收 盘 价 ') 


subplot (122) ,plot (dma','.-'); xlabel('t') ;ylabel('DMA- 动 态 移动 平均 值 ') 


运行 结果 如 下 : 


dma = 


11.5400 11.5800 11.7850 12.0575 12.7188 
13.0100 13.2150 13.4575 13.4438 14.0219 


得 到 相应 的 图 形 如 图 3-9 所 示 。 
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图 3-9 动态 移动 平均 值 绘 
分 析 上 证 指数 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 
feature jit off を 加 速 通道 
load('data.mat') 

closePrice - data'; 

weight -0.5; s 权 值 系 数 


dma-DMA (closePrice, weight) も DMA- 动 态 移动 平均 值 

figure (2) 

subplot (121) , plot (closePrice', '.-') ;xlabel('t');ylabel(' 收 盘 价 ') 
subplot (122) ,plot (dma','.-'); xlabel('t');ylabel('DMA- 动 态 移动 平均 值 ') 


得 到 相应 的 图 形 如 图 3-10 所 示 。 
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图 3-10 ”上 证 指数 动态 移动 平均 值 分 析 


3.6 ”指数 平滑 移动 平均 值 


在 通常 情况 下 ， 许 多 参股 入 股 者 (散户 ) 以 随机 指标 (KDJ 指标 ) 和 指数 平滑 异同 平均 线 (MACD 指 标 ) 作为 股票 买 入 和 卖 出 信号 的 重要 指标 。 一 旦 当 大 盘 或 个 股 的 KDJ 指标 和 MACD 指 标 在 高 位 形成 
死 叉 后 ， 投 资 者 则 通常 会 卖 出 。 但 是 ， 由 于 股票 的 主力 往往 知道 投资 者 这 个 心理 ， 主 力 经 常会 进行 反 向 操作 ， 所 以 常常 导致 “ 顶 在 项 上 ”和 “ 底 在 底下 ”的 情况 发 生 ， 因 此 随机 指标 (KDJ 指标 ) 和 指数 平 
滑 异 同 平均 线 (MACD 指 标 ) 指标 常常 会 失灵 ， 由 此 人 们 引入 了 指数 平滑 移动 平均 值 EMA (Exponential Moving Average) 指标 。 


假设 价格 已 脱离 均线 差 值 上 在 不 断 扩 大 ， 而 平均 线 又 未 能 立即 反应 ， 则 指数 平滑 移动 平均 值 EMA 可 以 为 投资 者 提供 一 定 参考 依据 ， 从 而 较 少 此 类 缺点 。 


EMA 用 于 计算 序列 的 指数 平滑 移动 平均 值 ， 当 前 序列 的 权重 为 2/ (period+1) ， 前 一 周期 EMA 的 权重 为 (period-1) / (period+1) 。 


体 公式 如 下 : 


EMA, — price, t-1 


Ep e S PS: 3 Dia 


| Ee 1 
period +1 period +1 


[2 


其 中 ，price 为 输入 的 时 间 序列 数据 ，period 为 相应 的 周期 ，period> 1， 为 整数 。 


x 当前 周期 价格 + Period - 1 


公式 含义 为 : 当前 周期 “ ぐ " prodi ”上 一周 期 EMA 值 。 


由 此 编写 具体 的 指数 平滑 移动 平均 值 EMA 的 函数 如 下 : 


function ema com = EMA (price, period) 


% 函数 功能 :EMR- REAT 


% 输入 
Price- 为 输入 的 数据 矩阵 
Perieg AA >= 1 
ema com: EMA- 指数 平滑 移动 平均 值 
ema com(:, 1) =price(:/ 
for i-2: length (price) 
ema com(:,i)-2*price(:,i)./(period*l)tema com(:,i-1)* (period-1)/(periodt1); 


进行 具体 的 实例 计算 ， 具 体 分 析 如 下 : 


clc,clear,close all 
warning off 
feature jit off 


j 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


closePrice = [11.54 11. 62 11.99 12.33 11.74; 
13.0 13.42 13.7 13.43 12.3087;]; 
period = 5; $ 周期 
ema-EMA (closePrice, period) も EMA- 指 数 平滑 移动 平均 值 
figure (1) 
subplot (121) , plot (closePrice', '.-') ;xlabel('t') ;ylabel(' 收 盘 价 ') 
subplot (122),plot(ema','.-'); xlabel ('t") ; ylabel ('EMA- 指 数 平滑 移动 平均 值 ') 
运行 结果 如 下 : 
ema = 


11.5400 11.5667 11.7078 11.9152 11.8568 
13.0100 13.1467 13.3311 13.3641 13.0123 


得 到 相应 的 图 形 如 图 3-11 所 示 。 
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3-11 指数 平滑 移动 平均 值 绘图 


分 析 上 证 指数 如 下 : 
clc clear, close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off る 取消 警告 . 


feature jit off を 加 速 通道 
load('data.mat') 

closePrice - data'; 

period - 5; る 周期 


ema-EMA(closePrice,period) % EMA- 指 数 平滑 移动 平均 值 


figure (2) 
subplot (121) , plot (closePrice', '.-') ;xlabel('t');ylabel(' 收 盘 价 ') 
subplot (122),plot(ema','.-'); xlabel ('t") ; ylabel ('EMA- 指 数 平滑 移动 平均 值 ') 


得 到 相应 的 图 形 如 图 3-12 所 示 。 
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[3-12 ”上 证 指数 指数 平滑 移动 平均 值 分 析 


3.7 ”指数 移动 平均 值 


指数 移动 平均 值 EDMA 区 别 于 指数 平滑 移动 平均 值 EMA 和 动态 移动 平均 值 DMA，EDMA 采 用 权重 和 周期 数组 合 权 重 ， 然 后 计算 平均 值 ，EDMA 结 合 了 EMA 指 数 平滑 移动 平均 值 和 DMA 动 态 移动 平均 值 
求解 方法 。 


weight (period — weight) 


指数 移动 平均 值 EDMA 用 于 计算 序列 的 指数 移动 平均 值 ， 当 前 序列 权重 为 ww ， 且 上 一 周期 的 权重 为 need 


例如 ， 一 个 数列 [1，8，2，8，0，3，7，8，2，4，1]， 计 算 周期 为 weight=2、period=5， 则 相应 的 EDMA 简 单 移动 平均 值 计算 如 下 。 


对 于 数列 第 1 个 元 素 1， 则 EDMA (1) =1: 


对 于 数列 第 2 个 元 素 8， 则 


weight xs period — weight 2 5-2 


EDMA (2)= XEDMA(D)= =X8+ X1=38 


period period 


对 于 数列 第 3 个 元 素 2， 则 
weight period — weight 2 5-2 


EDMA (3)- x EDMA(2) 2 2x2 —— x3.8 = 3.08 
period period 5 5 

对 于 数列 第 4 个 元 素 8， 则 

EDMA (4)- WC ggg period ^ weight 、 な の 74(3 う )= ニ x8+ ニ ーーx3.08 =5.048 
period period 5 5 


对 于 数列 第 5 个 元 素 0， 则 


weight TN period — weight 


EDMA (5)- X EDMA(4) =x0 + x 5018 — 3.0288 
p 


eriod period 


对 于 数列 第 6 个 元 素 3， 则 
weight xd. period — weight 2 5-2 


EDMA (6)= x EDMA(5) 2 2x3 * ——x3.0288 = 3.0173 
period period 5 5 
对 于 数列 第 7 个 元 素 7， 则 
weight period — weight 2 5-2 
EDMA (T)» ———x'1 +—— x EDMA(6) ——X7-t———x3.0173 = 4.6104 
period period 5 5 
对 于 数列 第 8 个 元 素 8， 则 
ED MA (8)- VEE g4 period — weight | な の ん 4(7) - 2x84.2—2 4.6104 5.9662 
period period 5 5 
对 于 数列 第 9 个 元 素 2， 则 
weight period — weight 2 5-2 
EDMA (9)= ——5— x2 * 9— —  EDMA(8) - x2 + ——7x5.9662 = 4.3797 
period period 5 5 
对 于 数列 第 10 个 元 素 4， 则 
EDMA (10 "28h , 4 | period ^ weight 、 な の 74(9) — ya x4.3791 242278 
period period 5 5 
对 于 数列 第 11 个 元 素 1， 则 
BD EE gy Perlod = weeh FIA (10) = ERI x42278 — 2.9367 
period period 5 5 


由 此 可 写 出 求解 EDMA 指 数 移动 平均 值 的 求解 公式 ， 具 体 如 下 : 


EDMA, = price, t=1 


. weight T period — weight 


ED X price, XEDMA,, t>2 


period period 


其 中 ，price 为 输入 的 数据 矩阵 ; period 为 计算 的 周期 数 ，period> 1， 为 整数 ;weight 为 权 值 参数 ， 表 示 权 重 的 分 子 ，1<weight<period， 为 整数 。 


公式 的 含义 : 当 起 始 位 置 时 ，EDMA 等 于 price1; 当时 间 点 大 于 1 时 ， 则 当前 周期 EDMA 等 于 price 和 上 一 周期 EDMA 的 指数 移动 平均 值 。 


编写 具体 的 EDMA 函 数 程序 如 下 : 


function edma com = EDMA (price, period, weight) 
$ PAN. EDMA -指数 移动 平均 值 
% 输入 : 


Price- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1, 整数 


edma com(:,1)-price(:,1); 
for j=1:size (price,1) 
for i-2:length (price) 


edma com(j,i)- (weight/period) *price(j,i)-*((period-weight) /period)*edma com(j,i-1); 


end 
end 


weight:BUlü, 1«-weight«-period, 整数 
eedma com: EDMA -指数 移动 平均 值 


% 初始 化 


S 行 ， 每 一 行 一 个 时 间 序 列 数据 


る 从 ft=2 姑 


F 始 计算 


$ EDMA -指数 移动 平均 值 


列举 实例 进行 EDMA 简 单 移动 平均 值 计算 如 下 : 


clc, clear, close all 


s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗 口 


warning off を 取消 警告 

feature jit off $ 加 速 通道 

format short 

closePrice - [1828037824 1; 
11740630870]; 

period = 5; を 周期 

weight-2; る BUE. 1«-weight«-period, 整数 


edma-EDMA (closePrice, period, weight) 


figure (1) 


subplot (122) ,plot (edma', '.-'); 


% EDMA -指数 移动 平均 值 


subplot (121) , plot (closePrice', '.-') ;xlabel ('t') ;ylabel(' 收 盘 价 ') 
xlabel('t');ylabel('EDMA -指数 移动 平均 值 ') 


运行 程序 输出 结果 如 下 : 


edma = 
Columns 1 through 6 


1.0000 3.8000 3.0800 5.0480 3.0288 3.0173 
1.0000 1.0000 3.4000 3.6400 2.1840 3.7104 
Columns 7 through 11 
4.6104 5.9662 4.3797 4.2278 2.9367 
3.4262 2.0557 4.4334 5.4601 3.2760 
输出 图 形 如 图 3-13 所 示 。 
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分 析 上 证 指数 如 下 : 
clc,clear, close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off % 加速 通 道 
load('data.mat') 
closePrice = data'; 
period - 5; る 周期 
weight-2; る BL, l1«—-weight«-period, 为 整数 


edma-EDMA (closePrice, period, weight) 


figure (2) 
subplot (122) ,plot (edma', '.-'); 


% EDMA -指数 移动 平均 值 


subplot (121) , plot (closePrice', '.-') ;xlabel('t') ;ylabel(' 收 盘 价 ') 
xlabel('t');ylabel('EDMA -指数 移动 平均 值 ') 


得 到 相应 的 图 形 如 图 3-14 所 示 。 
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3-14 ”上 证 指数 指数 移动 平均 值 分 析 


第 4 章 ”量化 投资 趋向 指标 


量化 投资 趋向 指标 是 广大 投资 者 经 常 参考 的 指标 ,例如 MACD 和 QACD 曲 线 ， 很 多 的 散户 、 新 手 也 会 在 不 知 其 所 以 然 的 情况 下 ， 进 行 自行 判断 股票 的 涨 跌 趋势 。 本 章 主要 围绕 升降 线 指标 ACD、 动 向 平 
均 数 指标 ADX、 多 空 指数 BBI、 佳 庆 指标 CHO、 市 场 趋势 指标 CYE、 方 向 标准 离 差 指数 DDI、 平 均线 差 指 标 DFMA、 趋 向 指标 DMI、 简 单 波动 指标 EMV、 鬼 道 线 指标 GDX、 绝 路 航标 指标 儿 HB、 加 速 线 指标 
JS、 平 滑 异 同 平均 指标 MACD、 下 降 动向 指标 MDI、 动 力 指标 MTM、 变 动 速 率 线 OSC、 瀑 布线 指标 PBX、 上 升 动向 指标 PDI、 快 速 异同 平均 指标 QACD、 强 弱 值 指标 QR、 三 重 指数 平滑 平均 线 指 标 TRIX、 
终极 指标 UOS、 变 异 平均 线 指标 VMA 等 内 容 进 行 介绍 。 


44 升降 线 指标 


升降 线 (ACD) 是 分 析 股 票 收盘 价 与 股票 最 高 价 、 股 票 最 低 价 的 关系 的 指标 。 从 整体 上 看 ， 升 降 线 指标 (ACD) 是 逼近 股票 的 走势 ， 但 是 (ACD) 指标 滞后 股票 的 走势 。 


升降 线 指标 (ACD) 下 降 ， 而 股票 价格 上 升 时 ， 此 时 投资 者 可 以 卖 出 手中 股票 ; 升降 线 指标 (ACD) 上 升 ， 而 股票 价格 下 降 时 ， 此 时 投资 者 可 以 考虑 买 入 该 股票 ; 升降 线 (ACD) 指标 上 穿 其 20 日 均线 
时 ， 为 买 进 信号 ; 升降 线 (ACD) 指标 下 穿 其 20 日 均线 时 ， 为 卖 出 信号 。 


具体 升降 线 (ACD) 计算 如 下 : 

假设 昨天 收盘 价 LC=10 元 ,今天 最 低 价 lowprice=9 元 ,今天 最 高 价 highprice=11 元 ,今天 收盘 价 为 closeprice=10.5 元 ， 则 有 
由 于 今天 收盘 价 closeprice 大 于 昨天 收盘 价 LC， 则 

DIF=closeprice-min (lowprice, LC) =10.5-9=1.5 

假设 昨天 收盘 价 为 计算 基点 ， 则 今天 的 ACD 值 如 下 : 

ACD1=sum (DIF1) =1.5 

如 果 接 下 来 第 二 天 的 DIF 计 算 值 为 2， 且 收盘 价 不 同 ， 则 第 二 天 的 ACD 计 算 如 下 : 


ACD2=sum (DIF1+DIF2) =1.5+2=3.5 


则 由 案例 分 析 可 得 具体 ACD 升 降 线 指标 的 计算 公式 : 


LC, , = closeprice, , 


DIF, — closeprice, — if (closeprice, > LC, ,, min (lowprice,, LC, ,), max (highprice,, LC, , )) 


ACD, = Yr (closeprice, = LC, ,,0, DIF, )) 
1 


其 中 ，closeprice 为 收盘 价 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，LC 为 昨日 收盘 价 。 


其 中 文 含义 如 下 : LC 等 于 股票 昨日 收盘 价 ， 股 票 收盘 价 序列 向 后 移动 一 位 数 得 到 的 序列 。 


如 果 今 天 的 股票 收盘 价 大 于 昨日 的 收盘 价 ， 则 今天 DIF 为 今天 的 股票 收盘 价 与 今天 的 股票 最 低 价 和 昨 


今天 的 股票 收盘 价 与 今天 的 股票 最 高 价 和 昨日 的 股票 收盘 价 的 最 小 值 的 差 值 。 


和 |。 


如 果 今 天 的 股票 收盘 价 等 于 昨天 收盘 价 ， 则 今天 的 ACD 计 算 值 为 "与 昨天 的 ACD 值 之 和 ; 如 果 今 天 的 


由 此 编写 具体 的 ACD 升 降 线 指标 的 函数 程序 如 下 : 


的 股票 收盘 价 的 最 小 值 的 差 值 ; 如 果 今 天 的 股票 收盘 价 小 了 


股票 收盘 价 ， 则 今天 的 DIF 为 


股票 收盘 价 不 等 了 


昨天 的 股票 收盘 价 ， 则 今天 的 ACD 计 算 值 为 今天 的 DIF 计 算 值 与 昨天 的 ACD 值 之 


function acd com = ACD (highprice, lowprice,closeprice) 


函数 功能 ，ACD- 升 降 线 指标 


输入 : 
highprice- 为 输入 的 最 高 价 
lowprice- 为 输入 的 最 低 价 
closeprice- 为 输入 的 收盘 价 
输出 : 

acd com: 升降 线 指标 


de op de op op oe op op 


acd comenan*ones (size (closeprice,1),size (cl 


for ]=1 : s1ze (closeprice, 1) 
for i-2:length (closeprice) 
% 计算 DIF 
LC = closeprice(j,i-1); 
if closeprice(j,i)>LC 


highprice, lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 


closeprice,2));  % 初始 化 
& ] 个 类 的 收盘 价 
& 价格 序列 长 度 


0 


昨日 收盘 价 
今天 收盘 价 是 否 大 于 昨天 收盘 价 


de op 


DIF = closeprice(j,i)-min(lowprice(j,i),LC); 


else 
DIF = closeprice(j,i)-max(highprice(j,i),1C); 
end 
% 计算 ACD 
if closeprice (j, i)==LC & 今天 收盘 价 是 否 等 于 昨天 收盘 价 
if i= 
acd com(j,i)-0; も 避免 第 一 天 NaN 的 影响 
else 
acd com(j,i)=acd com(j,i-1)+0; 名 DIF 累 加 和 
end D: x 
else 
if i= 
acd com(j,i)-DIF; 5 避免 第 一 天 NaN 的 影响 
else 
acd com(j,i)-acd com(j,i-1)+DIF; 名 DIF 累 加 和 
end 
end 
end 
end 


编写 实例 调用 该 函数 如 下 : 


clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 

feature jit off s 加 速 通道 

load('data000001.mat') 

openprice = data000001(:,1)'; を 开盘 价 

highprice = data000001(:,2)'; る 最 高 价 

lowprice = data000001(:,3)'; $ 最 低 价 

closeprice = data000001(:,4)'; s 收盘 价 


acd = ACD (highprice, lowprice, closeprice) 
figure (2) 

subplot (121) ,plot (closeprice','.-'); 
xlabel('t') ;ylabel(' 收 盘 价 ') 

subplot (122) ,plot (acd', '.-"); 

xlabe1 ("て ") : ylabe1 ('ACD 指 标 求解 ') 


load('data000001.mat') 


S ACD 指 标 求解 


openprice = data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; $ 最 高 价 
lowprice = data000001(:,3)'; を 最 低 价 
closeprice = data000001(:,4)'; $ OR 


acd = ACD (highprice, lowprice, closeprice) 
figure (2) 

subplot (121) , plot (closeprice','.-'); 
xlabel ('t') ;ylabel(' 收 盘 价 ') 

subplot (122) , plot (acd', '.-"); 

xlabel ('t') ;ylabel ('ACD 指 标 求解 ') 


价 
S RCD 指 标 求解 


运行 程序 得 到 如 下 结果 : 


acd = 
Columns 1 through 5 
NaN -20.8400 16.3800 26.0000 21.6400 
Columns 6 through 10 
-18.7000 -23.2300 -17.9900 17.4700 -1.1200 


得 到 相应 的 A 


CD 计算 图 形 如 图 4-1 所 示 。 
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4-1 大 数据 下 的 ACD 升 降 线 指标 


42 动力 指标 


动力 指标 MTM 以 分 析 股 票 价格 波动 的 速度 为 目的 ， 研 究 股票 价格 在 波动 过 程 中 各 种 加 速 、 减 速 、 惯 性 作用 以 及 股票 价格 由 静 到 动 或 由 动 转 静 的 现象 。 当 股票 价格 上 涨 强 劲 时 ， 则 动力 指标 MTM 上 升任 
率 越 大 ， 即 上 升 越 快 ， 当 股票 价格 下 降 快速 时 ， 动 力 指标 MTM 下 降 也 越 快 ; 当 动 力 指标 MTM 震 荡 时 ， 说 明 股票 价格 也 在 一 定 的 小 区 间 范 围 内 震荡 。 


对 于 动力 指标 MTM 指 标 而 言 ， 投 资 者 应 该 关注 的 是 : 动力 指标 MTM 从 下 向 上 突破 其 均线 时 ， 多 头 为 买 入 信号 ; 动力 指标 MTM 从 上 向 下 突破 其 均线 时 ， 多 头 为 卖 出 信号 。 


具体 的 动力 指标 MTM 计 算 公式 如 下 : 


MTM, = closeprice, — closeprice, period 


其 中 ，closeprice 为 股票 收盘 价 ，period 为 计算 周期 ，period 为 整数 且 小 于 等 于 样本 的 长 度 。 


动力 指标 MTM 公 式 计算 的 中 文 含义 为 : 动力 指标 MTM 等 于 当前 股票 收盘 价 减 period 日 前 的 收盘 价 。 


编写 具体 的 MTM 动 力 指标 函数 程序 如 下 : 


function mtm com = MIM(closeprice, period) 
$ 函数 功能 :MTM 动 力 指标 N 
% MASCCRCHESISALMUN-SRESSIRISERI, 即 为 行 向 量 

% 输入 : 

る closeprice- 为 输入 的 收盘 价 ,M x N 

る - Period- 计 算 周期 ,为 整数 ，1<= period <= N 
る uui: 

& mtm com: MTM 动 力 指标 

s MIM 动力 指标 初始 化 


mtm com = nan*ones (size (closeprice,1), size (closeprice, 2)); 初始 化 


% MTM 动 力 指标 
for j=1:size (closeprice, 1) 
for i-period41:size(closeprice,2) 
mtm com(j,i)-closeprice(j,i)-closeprice(j,i-period); 
end 
end 


编写 实例 调用 该 程序 如 下 : 


clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off s 加 速 通道 


load('data000001.mat') 


openprice = data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; % 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 
closeprice = data000001(:,4)'; 2 收盘 价 

period = 30; % 计算 周期 ,为 整数 ，1<= periodl <= N, 长 周期 
mtm = MTM (closeprice, period) % MTM 动 力 指标 
figure (2) 

subplot (121),plot (closeprice',.-'); 


xlabel('t') ;ylabel(" 收 盘 价 人 
subplot (122) , plot (mtm'，" .-'); 
xlabel('t');ylabel ('MTM 动 力 指标 ') 


输出 图 形 如 图 4-2 所 示 。 
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图 4-2 大 数据 下 的 MTM 动 力 指标 


43 ”变动 速率 线 指标 


变动 速率 线 指标 OSC 在 长 期 内 反映 股票 的 上 涨 下 跌 状 态 ， 变 动 速率 线 指标 OSC 曲 线 更 加 平滑 ， 变 动 速率 线 指标 OSC 上 升 则 表示 股票 具有 强劲 的 上 涨 势 头 ， 变 动 速率 线 指标 OSC 下 降 ， 则 表示 股票 有 下 降 
趋势 ;变动 速率 线 指标 OSC 变 化 的 值 越 大 ， 则 股票 波动 也 越 大 。 


变动 速率 线 指标 OSC 属 于 超 买 超 卖 指标 ，OSC 变 动 速率 线 是 从 移动 平均 线 原理 派生 出 来 的 一 种 分 析 指 标 ， 反 映 当 日 收盘 价 与 一 段 时 间 内 平均 收盘 价 的 差 离 值 。 


OSC 变 动 速率 线 指标 穿 过 0 线 向 上 ， 此 时 股票 有 上 涨 势 头 ， 可 视 为 买 入 信号 ， 此 时 用 户 可 考虑 买 入 股票 ;OSC 变动 速率 线 指标 下 跌 跌 破 0 线 向 下 ， 此 时 股票 价格 将 走 弱 ， 被 视 为 卖 出 信和 号， 此 时 用 户 可 考 
虑 卖 出 股票 。 


OSC 变 动 速率 线 指标 计算 表达 式 如 下 : 


a I cas hs pin SS S i aa ele) 
SMA(closeprice,, period!) 


其 中 ，closeprice 为 收盘 价 ，period1、period2 为 计算 周期 ，period1、period2 均 为 整数 且 小 于 等 于 样本 的 长 度 。SMA 为 简单 移动 平均 值 计算 函数 。 


变动 速率 线 指标 OSC 公 式 计 算 的 中 文 含义 为 : 变动 速率 线 指标 OSC 等 于 100 乘 以 (收盘 价 period1 周 期 的 ;MA 值 ) 减 (收盘 价 period2 周 期 的 SMA 值 ) 除 以 (收盘 价 period1 周 期 的 SMA 值 )。 


由 此 编写 相应 的 OSC 变 动 速率 程序 如 下 : 


function osc com = OSC(closeprice,periodl,period2) 
t 函数 功能 : 05C 变 动 速率 线 _ 

% S Tin pa, 即 为 行 向 量 

% 输入 : 


closeprice- 为 输入 的 收盘 价 ,M x N 
Period1- 计 算 周期 ,为 整数 ，1<= period <= N 
d Period2- 计 算 周期 ,为 整数 ，1<= period <= N 
出 
osc com: OSC 变 动 速率 线 


$ OSC 变 动 速 率 线 初始 化 


de dP de de op 


oscl = nan*ones (size (closeprice, 1), size (closeprice,2)); % 初始 化 
osc2 = nan*ones (size (closeprice, 1),size (closeprice, 2)); 多 初始 化 
osc_com = nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 


% 0SC 变 动 速率 线 指标 

for j-1:size(closeprice,1) 
osc1 (j, :)=SMA (closeprice (j, : ) , periodl); 
osc2 (j, :)=SMA (closeprice (j, :) , period2) ; 


osc com(j, :) 2100.* (osc1 (j, :) -osc2 (j, :)) ./osc1 (j, : ) ; 
end 
编写 程序 如 下 : 
clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 
feature jit off る 加 速 通道 


load('data000001 .mat') 


openprice = data000001(:,1)'; & 开盘 价 
highprice = data000001(:,2)'; る 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 


closeprice = data000001(:,4)'; s 收盘 价 
periodl = 20; % 计算 周期 ,为 整数 ，1<= period1 <= N, 长 周期 
period2 = 30; $ 计算 周期 ,为 整数 ，1<= periodl <= 期 
osc= OSC(closeprice,periodl,period2)  $ 0SC 变 动 速率 线 
figure (2) 

subplot (121) , plot (closeprice','.-'); 
xlabel('t');ylabel ("katt") 


T is plot (osc' pis 


xlabel('t');ylabel( Cos CERA) 
输出 图 形 如 图 4-3 所 示 。 
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图 4-3 ”大 数据 下 的 OSC 变 动 速率 线 
44 瀑布 线 指标 


瀑布 线 指标 PBX 广 泛 应 用 于 金融 领域 中 ， 用 于 判断 股价 运行 趋势 。 瀑 布线 指标 PBX 在 短期 
票 价格 将 下 跌 。 瀑 布线 指标 PBX 可 看 作 是 股票 价格 的 短 周期 平滑 曲线 ， 


当 股 票 价格 上 涨 穿 过 轨道 线 上 限时 ， 下 降 概率 增 大 ;， 当 股票 价格 下 跌 跌 破 轨道 线 下 限时 ， 则 


PBX 瀑 布线 指标 计算 公式 如 下 : 


反映 


属于 传统 大 势 价格 趋势 线 ， 


股票 价格 的 变化 率 ， 瀑 布线 指标 PBX 上 涨 ， 则 表示 股价 极 大 可 能 上 涨 ， 瀑 布线 指标 PBX 下 降 ， 则 表示 近期 股 
由 非 线 性 加 权 移 动 平均 线 组 合 而 来 。 


反弹 机 率 增 大 ， 


户 可 以 考虑 介入 。 


EMA cur, = EMA(closeprice,, period) 


PBX, = 


PBX 瀑 布线 指标 计算 的 中 文 含义 如 下 。 


“当前 EMA_cur 等 于 当前 period 日 的 收盘 价 的 EMA 值 。 


EMA cur, + SMA(closeprice,,2 x period )+ SMA(closeprice,,4x period) 


3 


其 中 ，closeprice 为 收盘 价 ，period 为 计算 周期 ，period 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。EMA 为 指数 平滑 移动 平均 值 计 算 函 数 。SMA 为 简单 移动 平均 值 计算 函 数 。 


| PBX 等 于 (EMA_cur+ 收 盘 价 的 2Xperiod 周 期 的 SMA 值 + 收盘 价 的 4Xperiod 周 期 的 简单 移动 平均 3MA 值 ) 除 以 3。 


编写 PBX 瀑 布线 指标 函数 程序 如 下 : 


function pbx com = PBX(closeprice,period) 
% 函数 功能 :PBX 瀑 布线 指标 

OES :在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
DA: 


closeprice- 为 输入 的 收盘 价 ,M x N 

T Period- 计 算 周期 ,为 整数 ，1<= period <= N 
Nur 

pbx com: PBX 瀑 布线 指标 


S PBX 瀑 布线 指标 初始 化 


de op oe op op à 


pbx com = nan*ones (size (closeprice, 1) , size (closeprice,2)); S 初始 化 
EMA cur = nan *ones (size (closeprice, 1) , size (closeprice, 2)); る 初始 化 
SMA cur2 = nan*ones (size (closeprice,1),size (closeprice,2)); s 初始 化 
SMA cur4 = nan*ones (size (closeprice, 1) , size (closeprice, 2)); % 初始 化 


% PBX 瀑 布线 指标 
for j=1:size (closeprice, 1) 
EMA cur (j, :) -EMA (closeprice (j, :) ,period) ; 
SMA cur2 G, :)=SMA (closeprice (j, 2*period); 
SMA « | cur4 (j, :) =SMA (closeprice tJe 4*period); 
for i= A*period: size (closeprice,2) 
pbx com(j,i)-(EMA cur (j,i)+SMA cur2 (j,i)+SMA cur4(j,i))/3; 
en 


:), 
RE 


指数 平滑 移动 平均 值 EMA 函 数 程序 如 下 : 


function ema com — price, period) 


s mi: BiR- REAT 
amm 


名 period- 为 周期 ， >= 1 
% 输出 : ] 
を ema com: EMA- 指 数 平滑 移动 平均 值 
ema com(:,1)=price(:,1); 
for i-2:length (price) 

ema com(:,i)-2*price(:,i)./(period*l)t*ema com(:,i-1)* (period-1 ) / (period+1 ) 7 
end 


简单 移动 平均 值 SMA 函 数 程序 如 下 : 


unction sma col SMA (price, period) 


f 
% 函数 功能 ，SMA T 


給 入 : 

Price- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1 
TP 


を sma com: SMA -简单 移动 平均 值 
sma com-nan*ones (size (price,1),size (price, 2)) % 初始 化 
if length (price)»period % 每 一 行 态 量 的 长 度 是 是 B C T period 
for j-1:size(price,1) $ din 每 一 行 一 个 时 间 序 列 数据 
for i-period:length (price) % 从 period 周 期 开始 计算 
sma com(j,i)-mean (price (j, i-period+1:i)); % eva 
end 
end 
end 


编写 实例 调用 该 程序 如 下 : 


clc,clear,close all 
warning off s 取消 警告 
feature jit off る 加速 通 道 


load('data000001.mat"') 

openprice = data000001(:,1)'; & 开盘 价 
highprice = data000001(:,2)'; 2 最 高 价 
lowprice = data000001(:,3)'; & 最 低 价 
closeprice = data000001 (: yy t; を 收盘 价 
period = 2; $ 计算 周期 ， 为 整数 ， 1<= periodl <= N, 长 周期 
pbx- PBX (closeprice,period) を PEBX 混 布线 指标 
figure (2) 

subplot (121) ‚plot (closeprice', rtjg 

xlabel('t') ;ylabel(' 收 盘 价 ') 

Er plot (pox', ted 

xlabel('t');ylabel( (reet Adi) 


输出 图 形 如 图 4-4 所 示 。 
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图 4-4 大 数据 下 的 PBX 瀑 布线 指标 


45 ”上升 动向 指标 


单独 的 上 升 动向 指标 PDI 曲 线 是 不 断 变 换 的 一 些 震荡 曲 线 ， 单 独 的 从 上 升 动向 指标 PDI 曲 线 并 不 能 很 好 地 获取 股票 价格 走势 信息 ， 上 升 动向 指标 PDI 常 和 下 降 动向 指标 MDI、 动 向 平均 数 指标 ADX 连 用 ， 
通过 三 者 之 间 的 关系 进行 股票 的 买 入 和 卖 出 判断 。 


一 般 情况 下 ， 如 果 PDI 上 升 动向 指标 从 下 往 上 突破 下 降 动向 指标 MDI， 且 动向 平均 数 指标 ADX 走 势 也 向 上 ， 此 时 投资 者 可 以 考虑 买 入 ， 此 时 股票 价格 极 大 可 能 将 会 上 涨 ; 如 果 下 降 动向 指标 MDI 从 上 往 
下 突破 上 升 动向 指标 PDI， 且 动向 平均 数 指标 ADX 走 势 向 下 ， 此 时 投资 者 可 以 考虑 卖 出 手中 的 股票 ， 此 时 股票 价格 将 极 大 可 能 地 下 降 。 


假设 昨天 的 一 组 数据 为 3，1，2]， 即 昨天 最 高 价 为 3， 最 低 价 为 1， 收 盘 价 为 2; 今天 的 一 组 数据 为 3，2，2]， 即 今天 最 高 价 为 3， 最 低 价 为 2， 收 盘 价 为 2。 考 虑 计算 周期 period 为 1， 则 PDI 计 算 如 下 : 


由 于 今天 最 高 价 减 昨天 最 高 价 为 =3-3=0=x2， 而 今天 最 低 价 减 昨天 最 低 价 为 =2-1=1=x1， 因 此 x2<x1， 则 设 变 量 UDM =0; 计算 今天 最 高 价 减 今天 最 低 价 =3-2=1=x3， 今 天 最 高 价 减 昨天 收盘 价 =3- 
2=1=x4， 则 x3 和 x4 的 最 大 值 =1=x5， 计 算 今 天 最 低 价 减 昨天 最 低 价 =2-1=1=x6， 则 设 变量 TR=max (x5, x6) =1; 则 PDI 计 算 如 下 : 


昨日 PDI 为 起 点 =NaN 
AK PDI 为 sum(UDM ) 0 
sum(TR) 


则 由 案例 分 析 可 得 具体 PDI 上 升 动向 指标 的 计算 公式 : 


0 NIU TU 


highprice, — highprice, ,, highprice, — highprice, , = lowprice, — lowprice, , 


UDM, = ・ ・ 
0, highprice, — highprice, , < lowprice, — lowprice, , 


TR, = max (max (highprice, — lowprice,, highprice, — closeprice, ,) ,(lowprice, — closeprice, ,)) 


| sum(UDM, period) ” 


PDI, = 
sum (TR, period) 


00 


其 中 ，closeprice 为 收盘 价 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，period 为 计算 周期 。 
上 升 动向 指标 PDI 公 式 计算 的 中 文 含义 如 下 。 


“ 通过 股票 连续 两 日 最 高 价差 与 股票 连续 两 日 最 低 价差 的 比较 ， 进 而 得 到 UDM 等 于 今天 股票 最 高 价 与 昨天 股票 最 高 价差 ， 或 者 为 0。 


“TR 的 计算 为 : 求 ( 今 天 股票 最 高 价 减 今天 股票 最 低 价 ) 、 (今天 股票 最 高 价 减 昨 天 股票 收盘 价 ) 的 最 大 值 X， 然 后 求 X 与 (今天 股票 


上升 动向 指标 PDI 的 计算 为 : 当前 period 周 期 内 的 UDM 之 和 与 在 当前 周期 内 的 TR 之 和 的 比值 ， 然 后 扩大 100 倍 ， 即 为 当前 PDI 的 值 。 


由 此 编写 具体 的 PDI 上 升 动向 指标 的 函数 程序 如 下 : 


function pdi com = PDI (highprice, lowprice, closeprice, period) 


% 函数 功能 ，PDT 上 升 动向 指标 

る highprice, lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
$ 输入 : 

$ highprice- 为 输入 的 最 高 价 

$ lowprice- 为 输入 的 最 低 价 

る closeprice- 为 输入 的 收盘 价 

$ Period- 计 算 周期 ,为 整数 ， 小 于 收盘 价 closeprice 列 数 


pdi com: PDI 上 升 动向 指标 


UDM-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); % 初始 化 
TR=nan*ones (size (closeprice,1),size (closeprice,2)); n 初始 化 
pdi com-nan*ones (size (closeprice, 1) , size (closeprice,2)); s 初始 化 
for j=1:size (closeprice, 1) N j 个 类 的 收盘 价 

for i-2:length (closeprice) š 价格 序列 长 度 


if highprice(j,i)-highprice (], ユー 1 >=1owprtce (j,i)-lowprice (j,i-1) 
UDM(j,i)-highprice(j,i)-highprice(j,i-1); 


最 低 价 减 昨天 股票 收盘 价 ) 的 最 大 值 TR。 


else 
UDM (j, i)-0; 
end 
TR (j, i)=max (max (highprice (j,i)-lowprice(j,i),highprice(j,i)- closeprice(j,i-1)),lowprice(j,i)-closeprice(j,i-1)); 
end 
end 
% pdi com: PDI 上 升 动向 指标 
for j-1:size(closeprice,1) % ゴイ SRM UY 
for i-period:length (closeprice) を WEA KH 
pdi com(j,i)-sum(UDM(j,i-periodel:i) io (TR (j, i-periodtl:i))*100; 
end 
end 


编写 程序 调用 该 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off を 加 速 通道 


load('data000001.mat') 


openprice = data000001 (:,1)' $ 开盘 价 

highprice = data000001(:,2)' $ 最 高 价 

lowprice = data000001(:,3)'; $ 最 低 价 

closeprice = data000001(:,4)' る 收盘 价 

[pdi] = PDI (highprice, iousrice, closeprice, period) sPDI 上 升 动向 指标 
figure (2) 

subplot (121),plot (closeprice', tasty 


xlabel('t');ylabel( (收盘 Jun 
subplot (122) , plot (pdi','.- 
xlabel('t');ylabel(' PDI EF DEE 


得 到 相应 的 PDI 


线 图 ， 如 图 4-5 所 示 。 
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图 4-5 大 数据 下 的 PDI 上 升 动向 指标 


4.6 下 降 动 向 指标 


由 PDI 上 升 动 向 指标 分 析 可 知 ， 下 降 动向 指标 MDI 通 常 和 PDI 上 升 动向 指标 、ADX 动 向 平均 数 指标 连用 。 下 降 动 向 指标 MDI 通 常 在 +50 之 间 震 荡 ， 一 般 认 为 下 降 动 向 指标 MDI 在 0 上 方 运行 ， 则 股票 价格 
将 逐渐 走强 ， 可 以 考虑 适时 着 低 买 入 。 


通常 认为 ， 若 PDI 上 升 动向 指标 从 下 往 上 突破 下 降 动 向 指标 MDI， 且 ADX 走 势 也 向 上 ， 此 时 投资 者 可 以 考虑 介入 ， 此 时 股票 价格 在 一 定时 间 段 内 上 涨 可 能 性 增 大 ; 若 下 降 动 向 指标 MDI 从 上 往 下 突破 PDI 
上 升 动向 指标 ， 且 ADX 走 势 向 下 ， 此 时 投资 者 可 以 考虑 卖 出 手中 的 股票 ， 此 时 股票 价格 在 一 定时 间 段 内 下 跌 可 能 性 增 大 。 


假设 昨天 一 组 数据 为 3，1，2]， 即 昨天 最 高 价 为 3， 最 低 价 为 1， 收 盘 价 为 2; 今天 的 一 组 数据 为 3，2，2]， 即 今天 最 高 价 为 3， 最 低 价 为 2， 收 盘 价 为 2; 考虑 计算 周期 period 为 1， 则 MDI 计 算 如 下 : 


由 于 今天 最 高 价 减 昨天 最 高 价 =3-3=0=x2， 而 今天 最 低 价 减 昨天 最 低 价 =2-1=1=x1， 因 此 x2<x1， 则 设 变量 DDM =x1=1; 计算 今天 最 高 价 减 今天 最 低 价 =3-2=1=x3， 今 天 最 高 价 减 昨天 收盘 价 =3- 
2=1=x4， 则 x3 和 x4 的 最 大 值 =1=x5， 计 算 今 天 最 低 价 减 昨天 收盘 价 =2-2=0=x6， 则 设 变量 TR=max (x5, x6) =1: 则 MDI 计 算 如 下 : 


昨日 MDI 为 起 点 =NaN 


DDM 
A3 mpi y ODPM) oo L00100 
sum (TR) 1 


则 由 案例 分 析 可 得 具体 MDI 下 降 动向 指标 的 计算 公式 : 


lowprice, — lowprice, ,, highprice, — highprice, , < lowprice, — lowprice, , 
" 0, highprice, — highprice, , > lowprice, — lowprice, , 


TR, = max (max (highprice, — lowprice,, highprice, — closeprice, 」 ) (lowprice, — closeprice, , )) 
sum (DDM,, period) 


x100 
sum(TR, period ) 


PDI, = 


其 中 ，closeprice 为 收盘 价 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，period 为 计算 周期 。 

下 降 动向 指标 MDI 公 式 计 算 的 中 文 含 义 如 下 。 

“ 通过 股票 连续 两 日 最 高 价差 与 股票 连续 两 日 最 低 价差 的 比较 ， 进 而 得 到 DDM 等 于 今天 最 低 价 与 昨天 最 低 价差 ， 或 者 为 0。 

TR 的 计算 为 : 求 ( 今 天 股票 最 高 价 减 今天 股票 最 低 价 ) 、 (今天 股票 最 高 价 减 昨天 股票 收盘 价 ) 的 最 大 值 X， 然 后 求 又 与 〈 今 天 股票 最 低 价 减 昨天 股票 收盘 价 ) 的 最 大 值 TR。 


` 下降 动向 指标 MDI 的 计算 为 : 当前 period 周 期 内 的 DDM 之 和 与 在 当前 周期 内 的 TR 之 和 的 比值 ， 然 后 扩大 100 倍 ， 即 为 当前 MDI 的 值 。 


由 此 编写 具体 的 MDI 下 降 动 向 指标 的 函数 程序 如 下 : 


function mdi com = MDI (highprice, lowprice, closeprice, period) 
% 函数 功能 : MDT 下 降 动向 指标 

を gprice, lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
$ 输入 : 

highprice- 为 输入 的 最 高 价 

lowprice- 为 输入 的 最 低 价 

closeprice- 为 输入 的 收盘 价 

Period- 计 算 周期 ,为 整数 ， 小 于 收盘 价 closeprice 列 数 


de gp de op 


% 输出 ; 


mdi com: MDI 下 降 动向 指标 


DDM-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); を 初始 化 
TR=nan*ones (size (closeprice,1),size(closeprice,2)); 5 初始 化 
mdi com-nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初始 化 


for j=1:size (closeprice, 1) % J 个 类 的 收盘 价 
for i=2:length (closeprice) % 价格 序列 长 度 
if highprice (j,i)-highprice (j,i-1)<=lowprice (j,i)-lowprice (j,i-1) 
DDM (j, i)=lowprice (j,i)-lowprice (j,i-1); 
else 
DDM (j, i)=0; 
end 
TR (j, i)=max (max (highprice (j,i)-lowprice(j,i),highprice(j,i)- closeprice(j,i-1)),lowprice(j,i)-closeprice(j,i-1)); 
end 
end 
$ mdi com: MDI 下 降 动向 指标 
for j-1:size (closeprice,1) 
for i-period:length (closeprice) 


% ] 个 类 的 收盘 价 
% 价格 序列 长 度 
mdi com(j,i)-sum(DDM(j,i-period*l:i))./sum(TR(j,i-periodt*l:i))*100; 
end 
end 


编写 程序 调 


该 程序 如 下 : 


Clc,clear, close all 
warning off 
feature jit off 


s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


load('data000001.mat"') 
openprice - data000001(: 
highprice - data000001(: 
lowprice = data000001(:, 
closeprice = data000001(:,4)'; 
[mdi] = MDI (highprice, lowprice, closeprice, period) 
figure (2) 

subplot (121),plot (closeprice',.-'); 

xlabel('t') ;ylabel(' 收 盘 价 ') 

subplot (122) ,plot (mdi','.-'); 
xlabel('t')7;Yylabel('MDI 下 降 动向 指标 ") 


71) 
72) 「 
3)'; 


名 MDI 下 降 动向 指标 


得 到 相应 的 MDI 曲 线 图 ， 如 图 4-6 所 示 。 
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4-6 大 数据 下 的 MDI 下 降 动 向 指标 


47 动向 平均 数 指标 


由 上 升 动向 指标 PDI、 下 降 动向 指标 MDI 分 析 可 知 ， 动 向 平均 数 指标 ADX 通 常 与 上 升 动向 指标 PDI、 下 降 动向 指标 MDI 连 


。 动 向 平均 数 指标 ADX 通 常用 


300 


400 500 


来 指明 一 个 趋势 的 指标 结束 ; 动向 平均 数 指标 


ADX 的 大 小 能 够 反映 股票 价格 的 实际 相对 大 小 ， 当 动向 平均 数 指标 ADX 增 大 时 ， 此 时 股票 价格 是 整体 上 涨 的 ， 当 动向 平均 数 指标 ADX 存 在 下 降 的 趋势 时 ， 则 股票 价格 极 大 可 能 下 降 ， 但 是 其 股票 成 本 价格 的 


实际 增幅 与 用 户 选 取 的 参考 点 有 关 。 
特别 的 ， 若 PDI 上 升 动向 指标 从 下 往 上 突破 下 降 动 向 指标 MDI， 且 ADX 走 势 也 向 上 ， 此 时 投资 者 可 以 考虑 介入 ， 此 时 股票 价格 在 一 定时 间 段 内 上 涨 可 能 性 增 大 ; 若 下 降 动 向 指标 MDI 从 上 往 下 突破 PDI 上 
升 动向 指标 ， 且 ADX 走 势 向 下 ， 此 时 投资 者 可 以 考虑 卖 出 手中 的 股票 ， 此 时 股票 价格 在 一 定时 间 段 内 下 跌 可 能 性 增 大 。 


动向 平均 数 指标 ADX 由 PDI 上 升 动 向 指标 以 及 MDI 下 降 动向 指标 计算 得 到 。 


假设 在 period1 周 期 =2 时 ，PDI 上 升 动向 指标 计算 值 PDl_com=3， 下 降 动向 指标 MDI 计 算 值 MDI_com=2， 则 ADX 动 向 平均 数 指标 计算 如 下 : 


PDI com- MDI com 
PDI com+ MDI com 


假设 上 一 周期 DX=10， 则 由 SMA 简 单 移动 平均 值 (具体 参考 第 3 章 3.4 节 ) 计算 可 得 : 


DX 


x100= 20 


ADX = SMA( DX, period2) = SMA( DX ,1) = SMA([10,20],1) = [10,20] 


则 具体 的 ADX 计 算 表达 式 如 下 : 


PDI (highprice, ,lowprice, ,closeprice,, period1) — 
MDI (highprice, ,lowprice, ,closeprice,, periodl 
DX, =100x Re 
PDI (highprice, .lowprice, ,closeprice,, period 1) 十 
MDI (highprice, .lowprice,,closeprice,, period) 
ADX, = SMA(DX,, period2) 


其 中 ，closeprice 为 收盘 价 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，period 为 计算 周期 。 


向 平均 数 指标 ADX 公 式 计 算 的 中 文 含义 如 下 。 


BU 


- DX 的 计算 为 : (PDI-MDI) 5 (PDI-MDI) 的 比值 ， 再 乘 以 100， 即 为 DX 的 值 。 


:ADX 的 计算 为 : DX 的 SMA 简 单 移动 平均 值 。 


编写 具体 的 ADX 计 算 函 数 程序 如 下 : 


function adx com = ADX (pdi oom,md1 com,period) 


る 函数 功能 : ADX ET Edi 
る eS Topice; vcloseprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
WA: 


る highprice- 为 输入 的 最 高 价 

$ lowprice- 为 输入 的 最 低 价 

る closeprice- 为 输入 的 收盘 价 

を PDI(highprice,lowprice,closeprice,period) ”上 升 动向 指标 


MDI(highprice,lowprice,closeprice,period) ”下 降 动 向 指标 
period-SMA 简 单 移动 平均 计算 周期 ,为 整数 ， 小 于 收盘 价 closeprice 列 数 


adx com: ADX 动 向 平均 数 指标 


$ 输出: 


$ 如 果 产 生 任何 的 NaN， 处 理 如 下 : 
for i-1: size (pdi X com,1) $ 行 
for j=1: size(pdi | com,2) $ 列 
if isnan (pdi com(i,j)) 
pdi com(i,j)-1 
end 
if isnan (mdi geo 
mdi . com (1,3) 
end 
end 
end 


de dP de de oe de de oe de oe oe 


% PDI(isnan(PDI)) = inf; 

% MDI(isnan(MDI)) = inf; 

DX = 100*(pdi com-mdi com)./(pdi comtmdi com) 

adx com = SMA(DX, period); % RDX 动 向 平均 数 指标 


相应 的 SMA 程 序 如 下 : 


function sma com = SMA(price, period) 
$ B SMA -简单 移动 平均 值 
を dd 
$ Price- 为 输入 的 数据 矩阵 
$ Period- 为 周期 ，>= 1 
% 输出 : 
$ sma com: SMA -简单 移动 平均 值 
sma com-nan*ones (size (price,1) , size (price, 2) 初始 化 
if length (price)»period $ 每 一 Liegt s K Fperiod 
for j=1:size (price, 1) % 行 ， 每 一 行 一 个 时 间 序 列 数据 
for i-period:length (price) $ 从 period 周 期 开始 计算 
sma com(j,i)-mean (price (j, i-period+1:i)); る 求 平均 值 


编写 实例 调用 该 函数 如 下 : 


clc clear, close all % 清 屏 ， 清 理工 作 区 ， 关 闭 图 形 窗 口 
warning off % 取消 警告 
feature jit off * 


load('data000001.mat') 

openprice = data000001(:, 
highprice = data000001(:, 
lowprice = data000001(:,3)'; 
closeprice = data000001(: 2)"; 


periodl - 30; を PDI、MDI 计 算 周期 

period2 = 10; る SMA 计 算 周期 

pdi com = PDI (highprice, lowprice, closeprice, periodl); る PDT 上 升 动向 指标 
mdi com = MDI (highprice, lowprice, closeprice, periodl); $ MDI 下 降 动向 指标 
adx = ADX(pdi com,mdi com, Period2) S ADX 动 向 平均 数 指标 

figure (2) 

subplot (121) ,plot (closeprice','.-'); 


xlabel ('t') ;ylabel (' io Mn 
subplot (122) , plot (adx', '.-'); 
xlabel('t');ylabel ADU BR) 


得 到 相应 的 输出 图 形 如 图 4-7 所 示 。 
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图 4-7 ”大 数据 下 的 ADX 动 向 平均 数 指标 


48 ”多 空 指数 指标 


BBI 多 空 指数 是 指 几 个 简单 移动 平均 值 的 加 权 平 均值 。 多 空 指数 指标 BBI 实 际 数值 大 小 与 分 析 的 股票 价格 数据 直接 相关 ， 该 指标 


单 移动 平均 值 决 定 。SMA 简 单 移动 平均 值 的 计算 取决 于 样本 的 计算 周期 period， 因 此 不 同 的 period 得 到 不 同 的 移动 平均 值 ， 


股票 价格 位 于 BBI 多 空 指数 上 方 ， 则 视 为 多 头 市 场 ; 股票 价格 位 于 BBI 多 空 指数 下 方 ， 则 视 为 空头 市 场 ， 股票 价格 在 高 价 | 
空 线 为 买 入 信号 。 
BBI 多 空 指数 的 计算 方法 较 简单 ， 其 计算 公式 如 下 : 


然后 将 这 些 平均 值 加 权 求 平均 值 即 为 BBI 多 空 指 数 。 


反映 股票 价格 短期 内 的 大 体 走势 。 多 空 指数 指标 BBI 具 体 由 样本 的 SMA 简 


区 以 收盘 价 向 下 跌 破 多 空 线 为 卖 出 信和 号; 股票 价格 在 高 价 


SMA(closeprice,, periodl) + SMA(closeprice,, period2) + 


BBI = 
4 


其 中 ，closeprice 为 收盘 价 ，period1、 


period2、period3、period4 为 不 同 的 计算 周期 ，period1、 


多 空 指数 指标 BBI 公 式 计 算 的 中 文 含义 为 : BBI 多 空 指数 等 于 4 个 不 同 计算 周期 SMA 值 的 又 加 和 的 平均 值 。 


由 此 进行 BBI 多 空 指数 函数 的 编写 : 


SMA (closeprice, , period 3) + SMA (closeprice, , period 4) 


区 以 收盘 价 向 上 突破 多 


period2、period3、period4 均 为 不 同 大 小 的 整数 县 小 于 等 于 样本 的 长 度 ，SMA 为 简单 移动 平均 计 


function bbi com = BBI (closeprice, periodl, period2, period3, period4) 
函数 功能 ，BBI 多 空 指数 
Pee lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
WA: 
highprice- 为 输入 的 最 高 价 
lowprice- bots 


closeprice- 为 输入 


periogd1-SMA 简 单 移动 ,为 整数 ，1<= period1 <= N 

period2-SMA 简 单 移动 ,为 整数 ，1<= period2 <= N 

period3-SMA 简 单 移动 ,为 整数 ，1<= period3 <= N 

Period4-SMA 简 单 移动 了 ,为 整数 ，1<= period4 <= N 
输出 : 


bbi com: BBI 多 空 指数 
BBI 多 空 指数 计算 


bbi com = (SMA(closeprice, per iod) SM (cLosepr ce, period2) Shttps / [www . hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/.. 


SMA (closeprice,period3)*SMA(closeprice,period4) )/4; $ BBI 多 空 指数 计算 


编写 实例 调用 程序 如 下 : 

clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 

warning off を pipa 

feature jit off & 加 速 通道 

closeprice - [2211. 77,2190.93,2228.15,2237.777,2233.41,2193.07,2188.54, 2193.78,2229.24,2210.65]; 
periodi = 1; sMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= periodl <= 

period2 SMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= period2 <= 


period3 3; E EF 均 计 算 周 期 ,为 整数 ， 1<= period3 <= 
period4 = 4; SMA 简 单 移动 平 均 计算 周期 ,为 整数 ，1<= Period4 = 

bbi = BBI (closeprice, periodl, period2, per1od3, period4) NC “指数 
figure (1) 


subplot (121) ,plot (closeprice', .-'); 


xlabel('t');ylabel( "收盘 价 ") 
subplot (122) , plot (bbi','. x nn 
xlabel('t');ylabel( ("BBI 多 空 指数 ') 


load('data000001.mat') 


openprice = data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; % 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 


き 收盘 价 


closeprice = data000001(:,4)'; s 收盘 价 


bbi = BBI (closeprice, periodl, period2, period3, period4) る BBI 多 空 指数 


figure (2) 

subplot (121) ‚plot (closeprice', Yj 
xlabel ('t") ;ylabel('" 收 盘 价 7) 

subplot (122), plot(bbi'," LI $ 

xlabel ('t') ;ylabel ('BBI 多 空 T ) 


输出 图 形 如 图 4-8 所 示 。 
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49 ” 佳 庆 指标 


图 4-8 大 数据 下 的 BBI 多 空 指数 


佳 庆 指 标 CHO 是 由 Marc Chaikin 所 发 展 的 一 种 新 成 交 量 指标 。 佳 庆 指标 CHO 上 升 下 降 的 幅度 越 大 ， 则 股票 价格 变化 也 越 大 ， 投 资 者 应 该 注意 风险 。 


佳 庆 指标 CHO 是 一 种 短期 判断 走势 的 量化 投资 指标 。 


当 佳 庆 指标 CHO 由 负 值 向 上 穿越 0 轴 时 ， 为 买 入 信号 (此 时 股票 价格 应 该 位 3 


下 穿越 0 轴 时 ， 为 卖 出 信和 号 (此 时 股票 价格 应 该 位 于 90 天 移动 平均 线 之 下 ) ， 投 资 者 应 考虑 卖 出 股票 。 


CHO 佳 庆 指 标的 计算 表示 为 : 


MID, = sum| volume, 


highprice, + lowprice, 


CHO, = SMA( MID,, periodl) — SMA( MID, period2) 


佳 庆 指 标 CHO 公 式 计算 的 中 文 含义 如 下 。 


300 


2x closeprice, — highprice, — lowprice, 


400 


500 


F90 天 移动 平均 线 之 上 ) , 投資 者 可以 介入 : 当 CHO 佳 庆 指标 由 正 值 向 


其 中 ，closeprice 为 收盘 价 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，period1、period2 为 不 同 的 计算 周期 ，period1、period2 均 为 整数 目 小 于 等 


样本 的 长 


“ 当天 的 MID 的 计算 为 : 当天 的 股票 成 交 量 乘 以 (2 倍 的 当天 股票 收盘 价 -当天 股票 最 高 价 -当天 股票 最 低 价 ) 除 以 (当天 股票 最 高 价 + 当 天 股票 最 低 价 ) o 


:当天 的 CHO 的 计算 为 : MID 的 period1 周 期 SMA 值 减 MID 的 period2 周 期 SMA 值 。 


由 此 进行 CHO 佳 庆 指标 函数 的 编写 


度 , SMA 


移动 平均 计算 函数 。 


function cho com = CHO (highprice, lowprice, closeprice, tradingvolume, periodl, period2) 


を 函数 功能 ，cCHO- 佳 庆 指标 


highprice- 为 输入 的 最 高 从 
lowprice- 为 输入 的 最 低 价 
closeprice- 为 输入 的 收盘 价 ,M x N 
tradingvolume- 为 输入 的 Pr 
period1-SMA 简 单 移动 平 


输出 : 
cho_com: CHO- 佳 庆 指 标 


$ CHO- 佳 庆 指 标 计算 


de de de op op oe op op op 


$ Pe lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
Di H 


算 周期 ,为 整数 ，1<= periodl <= N 
period2- SAL FSI KILLI US 为 整数 ，1<= period2 <= 


$ MID = nan*ones (size (closeprice, 1 ) , size (closeprice, 2) ) ; % 初始 化 


for j=1: size (closeprice, 1) 
for i-1:size(closeprice,2) 
if i—1 


MID (j, i)-tradingvolume (j,i)* (2*closeprice (j,i)-highprice (j,i)-lowprice (j,i))/ (highprice (j,i)*lowprice(j,i)); 


else 


MID (j, 1) =MTD (j, ュー1 ) +tradingvo1ume (j,i)* (2*closeprice (j,i)-highprice (j,i)-lowprice (j,i))/ (highprice(j,i)*lowprice(j,i)); 


end 
end 
end 
cho com = SMA (MID, periodl)-SMA (MID, period2) ; 


& CHO- 佳 庆 指 标 计算 


编写 实例 调用 该 程序 可 得 : 


clc,clear,close all 
warning off 
feature jit off 


load('data000001.mat') 
load('tradingvolume.mat') 


openprice = data000001(:,1)'; s 开盘 价 

highprice = data000001(:,2)'; s 最 高 价 

lowprice = data000001(:,3)'; $ 最 低 价 

closeprice = data000001(:,4)'; % 收盘 价 

tradingvolume = tradingvolumn( (1,1:420); $ 交易 量 

periodi = 10; $ Sv bay EHE ir ll ,为 整数 ，1<= periodl <= N 
period2 = 20; $ 人 为 整数 ，1<= period2 <= N 


cho = CHO (highprice, lowprice, closeprice, tradingvolume, periodl, period2) 
% CHO- 佳 庆 指 标 


figure (2) 

subplot ud plot (closeprice', raty} 
xlabel('t') ;ylabel ("收盘 价 ') 

pO tiar) plot(cho','.-') : 
xlabel('t');ylabel( (CHO 佳 庆 指标 


输出 图 形 如 图 4-9 所 示 。 
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4-9 大 数据 下 的 CHO 佳 庆 指 标 


4.10 ”市场 趋势 指标 


市 场 趋势 指标 CYE 简 单 地 说 就 是 当前 的 股票 走势 。CYE 市 场 趋势 指标 有 两 条 走势 线 ， 蓝 线 CYEL 是 短期 线 ， 代 表 一 周 的 走势 ， 红 线 CYES 是 中 期 线 ， 代 表 一 个 月 的 趋势 。 红 线 CYES 更 加 平滑 ， 蓝 线 CYEL 随 
着 股票 价格 震荡 存在 ， 正 常情 况 下 ， 蓝 线 CYEL 在 +1 之 间 震 荡 ， 当 股票 价格 异常 变化 时 ， 则 蓝 线 CYEL 指 标 也 出 现 越界 +1 的 情况 ， 此 时 投资 者 应 该 警惕 市 场 风险 。 


当 CYE 市 场 趋势 指标 大 于 0 时 ， 股 票 价格 就 是 上 升 趋势 ，CYE 市 场 趋势 指标 值 越 大 ， 股 票 价格 向 上 涨 的 力度 越 大 ， 此 时 投资 者 可 以 考虑 介入 ; 当 CYE 市 场 趋势 指标 小 于 0 时 ， 股 票 价格 就 是 下 降 趋势 ，CYE 
市 场 趋势 指标 值 越 小 ， 股 票 价格 向 下 跌 的 力度 越 大 ， 此 时 投资 者 可 以 考虑 卖 出 手中 的 股票 ， 后 期 着 低 买 入 。 


CYE 市 场 趋势 指标 计算 如 下 : 


MAL, = SMA(closeprice,,5) 
MAS, = SMA (SMA (closeprice, ， 20) : 5) 


MAL, — MAL 
CYEL, = ———— — c. x100 
MAL, , 


MAS, — MA 
CYES, = MAS. - MASA v 9o 
MAS 


t-l 


其 中 ，closeprice 为 收盘 价 ，SMA 为 简单 移动 平均 计算 函数 。 


CYE 市 场 趋势 指标 公式 计算 的 中 文 含义 可 理解 为 : 


< MAIL 为 收盘 价 的 5 日 移动 平均 值 。 


| MAS 的 计算 为 : 先 计算 收盘 价 的 20 日 移动 平均 值 ， 得 到 又 ， 然 后 对 X 进 行 SMA 的 5 日 移动 平均 值 计算 ， 即 为 MAS 值 。 


“CYEL 为 (当前 MAL 减 昨日 MAL) 与 (昨日 MAL) 的 比值 ， 再 乘 以 100。 


“CYES 为 (当前 MAS 减 昨日 MAS) 与 (昨日 MAS) 的 比值 ， 再 乘 以 100。 


由 此 进行 CYE 市 场 趋势 指标 的 编写 : 


function [cyel,cyes] = CYE (closeprice) 
% 函数 功能 : CYE 市 场 趋势 指标 

る hiobprics; lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 

$ highprice- 为 输入 的 最 高 价 

$ lowprice- 为 输入 的 最 低 价 

る closeprice- 为 输入 的 收盘 价 ,M x N 

$ SMA (closeprice, 5) ,period1=5-SMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= periodl <= N 

$ i SMA (closeprice, 20) ,period2=20-SMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= period2 <= N 


cye1 : CYE 市 场 趋势 指标 
cyes: CYE 市 场 趋 势 指标 


$ CYE 市 场 趋势 指标 

cyel = nan*ones (size (closeprice, 1) , size (closeprice,2)); 
cyes = nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
MAL = SMA(closeprice,5); 

MAS = SMA(SMA(closeprice,20),5); 


for je1:size(closeprice, 1) 
for i-2:size(closeprice,2) 
cyel (j, i)=(MAL (j, i)-MAL (j,i-1)) /MAL (j, i-1) *100; 
cyes (j, i)=(MAS (j, i) -MAS (j, i-1) ) /MAS (j,i-1) *100; 
end 
end 


简单 移动 平均 值 SMA 函 数 程序 如 下 : 


function sma com = SMA (price, period) 

A SMA -简单 移动 平均 值 
Price- 为 输入 的 数据 敌阵 

Period- 为 周期 ，>= 1 


sma com: SMA -简单 移动 平均 值 
sma com-nan*ones (size (price,1),size( 
if length (price) >per1od 


nth 


de de de op oe op 


rice,2));  $ 初始 化 
一 行 变量 的 长 度 是 否 大 于 Period 
for j-1:size (price, 1) 行 ， 每 一 行 一 个 时 间 序列 数据 
for i-period:length (price) 3 从 period 周 期 开始 计算 
sma com(j,i)-mean (price (j,i-period*l:i)); る 求 平均 值 
end 


Me] 


de oe 


end 
end 


编写 实例 调用 该 程序 可 得 : 


A 
8 
SR 
Rš 
H 


Clc,clear,close all る 
warning off % 取消 警告 
feature jit off % 加速 通 道 


load('data000001.mat') 
openprice = data000001(:, 
highprice - data000001(:, 
lowprice = data000001(:,3)'; 
closeprice = data000001(:,4)"' 
[cyel,cyes] = CYE(closeprice) 
figure (2) 

subplot (121),plot (closeprice','.-'); 
xlabel('t');ylabel ("收盘 价 ') 

subplot (122) ,plot (cyel','.-'); hold on; 
plot(cyes','r.-'); 

xlabel('t') ;ylabel ('CYE 市 场 趋势 指标 ') 
legend ('CYEL 指 标 ','CYES 指 标 ') 


1)'; Ei 
2)'; % 最 高 价 
)' 


7 ERN 
& CYE 市 场 趋势 指标 


输出 图 形 如 图 4-10 所 示 。 
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图 4-10 ”大 数据 下 的 CYE 市 场 趋势 指标 


441 方向 标准 离 差 指数 指标 


DDI 方 向 标准 离 差 指数 ， 顾 名 思 义 ，DDI 指 标 由 正 变 为 负 时 ， 则 表示 卖 出 信号 ， 此 时 用 户 应 该 考虑 减仓 ，DDI 指 标 由 负 变 为 正 时 ， 则 表示 买 入 信号 ， 此 时 用 户 应 该 考虑 加 仓 。 方 向 标准 离 差 指数 指标 DDI 
在 +1 之 间 震 荡 ， 当 方向 标准 离 差 指数 指标 DDI 在 0 上 方 运行 时 ， 则 长 期 内 股票 价格 上 涨 势头 明显 ， 但 当 方向 标准 离 差 指数 指标 DDI 连 续 两 天 下 降 时 ， 此 时 投资 者 应 该 随时 规避 风险 。 


具体 的 DDI 方 向 标准 离 差 指数 计算 如 下 : 


0, highprice, + lowprice, < highprice, ,  lowprice, , 


- 
Š 
I 


, 


) „others 


max (|highprice, ー highprice, ||, lowprice, 一 lowprice, , 


0, highprice, + lowprice, = highprice, ,  lowprice, , 


max (|highprice, ー highprice, ||, lowprice, 一 lowprice, , ) others 


う 


DD sum(DMZ,, period ) 
' sum(DMZ,, period ) + sum(DMF,, period) 


sum (DMF,, period) 
sum( DMF „ period) + sum( DMZ,, period) 


DIF, 


DDI, = DIZ, - DIF 


其 中 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，period 为 计算 周期 ，period 均 为 整数 ， 且 小 于 等 于 样本 的 长 度 。 


方向 标准 离 差 指数 指标 DDI 公 式 计算 的 中 文 含义 如 下 。 


:如果 当 天 的 股票 最 高 价 + 当 天 的 股票 最 低 价 小 于 等 于 昨天 的 股票 最 高 价 + 昨 天 的 股票 最 低 价 ， 则 当天 DMZ=0; 如 果 当 天 股票 最 高 价 + 当 天 股票 最 低 价 大 于 昨天 的 股票 最 高 价 + 昨 天 的 股票 最 低 价 ， 则 当 
天 DMZ 等 于 (当天 的 股票 最 高 价 -昨天 的 股票 最 高 价 的 绝对 值 ) 、 (当天 的 股票 最 低 价 -昨天 的 股票 最 低 价 的 绝对 值 ) 的 较 大 值 。 


如果 当天 的 股票 最 高 价 + 当 天 的 股票 最 低 价 大 于 等 于 昨天 的 股票 最 高 价 + 昨 天 的 股票 最 低 价 ， 则 当天 DMF=0; 如 果 当 天 股票 最 高 价 + 当 天 股票 最 低 价 小 于 昨天 股票 最 高 价 + 昨 天 股票 最 低 价 ， 则 当天 
DMF 等 于 (当天 股票 最 高 价 -昨天 股票 最 高 价 的 绝对 值 ) 、 《当天 股票 最 低 价 -昨天 股票 最 低 价 的 绝对 值 ) 的 较 大 值 。 


: DIZ 为 (DMZ 的 period 计 算 周期 和 ) 与 (DMZ 的 period 计 算 周期 和 +DMF 的 period 计 算 周 期 和 ) 之 比 。 
: DIE 为 (DMF 的 period 计 算 周 期 和 ) 与 (DMF 的 period 计 算 周 期 和 +DMZ 的 period 计 算 周 期 和 ) 之 比 。 
- 则 DDI 等 于 DIZ-DIF。 


由 此 进行 DDI 方 向 标准 离 差 指数 的 编写 : 


function ddi com = DDI (highprice, lowprice, period) 
函数 功能 DDI 方向 标准 离 差 指数 
04Cex 1owprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
HA: 
highprice- 为 输入 的 最 高 价 
lowprice- 为 输入 的 最 低 价 
closeprice- 为 输入 的 收盘 价 
jii Period- 计 算 周 期 ,为 整数 ， 小 于 收盘 价 closeprice 列 数 
n: 
% ddi com: DDI 方 向 标准 离 差 指数 
DMZ-nan*ones (size (highprice,1),size (highprice,2)); 
DMF-nan*ones (size (highprice,1),size (highprice,2)); 
DIZ-nan*ones (size (highprice,1),size (highprice,2)); 


de de de de de de gp de 


る 初始 化 
* 初始 化 


je oe de ar 
F 
= 
Eid 
zd 
ex 


DIF-nan*ones (size (highprice, 1 ) , size (highprice,2)); 初始 化 
ddi com=nanxones (size (highprice, 1) , size (highprice,2)); % 初始 化 
for j=1:size (highprice, 1) & J 个 类 的 收盘 价 
for i-2:length (highprice) を 价格 序列 长 度 
% 计算 DMZ 
if highprice(j,i)-*lowprice(j,i)«-highprice(j,i-1)-*lowprice (j,i-1) 
DMZ(j,i)-0; 
else 
DMZ (j,i)=max (abs (highprice(j,i)-highprice (j,i-1)),abs (lowprice(j,i)-lowprice(j,i-1))); 
end 
% 计算 DMF 
if highprice(j,i)*lowprice(j,i)»-highprice(j,i-1)-*lowprice (j,i-1) 
DMF (j, i)=0; 
else 
DMF (j, i)=max (abs (highprice (j, i)-highprice (j,i-1)),abs (lowprice(j,i)-lowprice(j,i-1))); 
end 
end 
end 


for ]=1:size (highprice, 1) $ jj 个 类 的 收盘 价 


for i-period:length (highprice) $ 价格 序列 长 度 


Sum 


DIZ(j,i) = sum(DMZ(j,i-period41:i))/(sum(DMZ(j,i-period*1:i)4DMF (j,i-periodtl:i))); 
))/( ( 


DIF(j,i) = sum(DMF(j,i-period41:i 
ddi com(j,i)-DIZ(j,i)-DIF(j,i); 


DMF (j, i-period+1:i)+DMZ (j,i-period*1:i))) ; 


end 
end 
编写 实例 调用 该 程序 如 下 : 
clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 
feature jit off を 加 速 通道 


load('data000001.mat') 
openprice - data000001(:,1)'; F 盘 价 
highprice = data000001(:,2)'; & 最 高 价 
lowprice = data000001(:,3)'; & dg 
closeprice = data000001(:,4)'; s 收盘 价 
ddi = DDI (highprice, lowprice, period) & DDI 方 向 标准 离 差 指数 


figure (2) 
subplot (121) , plot (closeprice', '.-');xlabel('t');ylabel (' 收 盘 价 ') 
subplot (122) ,plot (ddi','.-'); xlabel('t') ;ylabel('DDI 方 向 标准 离 差 指数 ') 


输出 图 形 如 图 4-11 所 示 。 
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图 4-11 大 数据 下 的 DDI 方 向 标准 离 差 指数 


时 ， 为 卖 出 信号 ， 此 时 
其 平均 线 ， 平 均线 差 DFMA 上 涨 、 下 跌 的 幅度 也 明显 增 大 ， 此 时 平均 线 差 DFMA 给 出 的 信息 量 也 越 大 ， 


442 平均 线 差 
DFMA 平 均线 差 


具体 的 DFMA 平 均线 差 计算 公式 如 下 : 


于 计算 平均 线 的 差 ， 具 体 为 两 个 不 同 计算 周期 的 移动 平均 线 的 差 值 即 为 DFMA 平 均线 差 。 如 果 DFMA 向 上 贯穿 0 轴 时 ， 为 买 入 信号 ， 此 时 | 
户 可 减仓 观望 。 平 均线 差 DFMA 围 绕 0 轴 震荡 ， 当 股票 价格 平稳 地 震荡 时 ， 则 平均 线 差 DFMA 也 震荡 平稳 ; 当 股 票 价格 出 现 大 幅 上 涨 或 者 大 幅 下 跌 时 ， 则 平均 线 差 DFMA 将 逐渐 偏离 
户 应 该 谨慎 操作 。 


户 可 加 仓 进 入 ; 如 果 DFMA 向 下 贯穿 0 轴 


DFMA, = SMA(closeprice,, periodl) — SMA (closeprice,, period2) 


其 中 ，closeprice 为 收盘 价 ，period1、period2 为 不 同 的 计算 周期 ，period1、period2 均 为 整数 且 小 于 等 


样本 的 长 


度 ，SMA 为 简单 移动 平均 计算 函数 。 


平均 线 差 DFMA 公 式 计算 的 中 文 含义 为 : DFMA 等 于 收盘 价 的 period1 计 算 周期 SMA 值 与 收盘 价 的 period2 计 算 周期 SMA 值 的 差 值 。 


由 此 进行 DFMA 平 均线 差 的 编写 : 


unction dfma com = DFMA (closeprice, periodl, period2) 
函数 功能 :DFMA 平 均线 差 : " 
price, lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
BÀ: 


highprice- 为 输入 的 最 高 价 ，M x N 
lowprice- 为 输入 的 最 低 价 ， M x N 
closeprice- 为 输入 的 收盘 价 ,M x N 
Periodl- 计 算 周期 ,为 整数 ， 小 于 收盘 价 closeprice 列 数 N 
" Period2- 计 算 周 期 ,为 整数 ， 小 于 收盘 价 closeprice 列 数 N 


mfma com: DFMA 平 均线 差 
ma com-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); 
DFMA 平 均线 差 
or j=l:size (closeprice, 1) 
dfma com(j, :) =SMA (closeprice (j, :) , periodl)-SMA (closeprice(j, :),period2) 7 
end 


de de de de op de oe op op Hh 


Dl 


る 初 始 化 


th de Q, oe 
Is] 


编写 实例 调 


该 函数 如 下 : 


clc,clear,close all を 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off & 加 速 通道 


load('data000001.mat"') 
openprice = data000001(:,1)'; 
highprice = data000001(:,2)'; 
lowprice = data000001(:,3)'; 
closeprice = data000001(:,4)'; 


de de co H 
m 
m 
= 


dfma = DFMA (closeprice, periodl,period2) る DFMR 平 均线 差 
figure (2) 

subplot (121),plot (closeprice', .-'); 

xlabel ('t') ;ylabel(' 收 盘 价 ') 

subplot (122) , plot (dfma', ' .-') ; 

xlabel ('t') ;ylabel ('DFMA 平 均线 差 ') 


输出 图 形 如 图 4-12 所 示 。 
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413 ”趋向 指标 


DMI 趋向 指标 是 一 种 中 长 期 股市 技术 分 析 方法 。DMI 趋 向 指标 是 多 个 趋向 指标 的 集合 ， 
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4-12 ”大 数据 下 的 DFMA 平 均线 差 
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该 指标 返回 4 个 趋向 指标 矩阵 ，DMI 趋 向 指标 计算 比较 复杂 。 


DMI 趋向 指标 有 4 条 线 ， 包 括 DMLPDI、DMLMDI、DMIADX、DMIL_ADXR。 其 中 DMIL_ADX 在 高 于 50 的 地 方向 下 反 折 时 ， 应 小 心 股价 随时 可 能 反 转 。 


就 DMI 趋向 指标 整体 趋势 而 言 ，DMI_ MDI、DMI_ADX、DMI_ADXR 三 者 的 走 替 是 相 
_PD 


同时 向 上 时 ， 则 投资 者 应 该 考虑 介入 股票 ， 此 时 股票 价格 上 涨 可 能 性 极 大 ; 当 DM 
票 价格 下 跌 可 能 性 极 大 。 


具体 DMI 趋向 指标 计算 如 下 : 


m 


TR, 2 sum| max ax [highprice, — closeprice, | 
llowprice, — closeprice, , | 
HD, = highprice, — highprice, , 
LD, = lowprice, , — lowprice, 


sum(HD,, periodl), HD, > 0 and HD, > LD, 


DMP = 
0, others 


同 的 ，DMI_PDI 的 走势 比较 超前 ， 当 DMI_PDI 提 前 具有 上 涨 趋势 ，DMI_MDI、DMI_ADX、DMI_ADXR 三 者 走势 


提前 具有 下 跌 趋 势 ，DMI_MDI、DMI_ADX、DMI_ADXR 三 者 走势 同时 向 下 时 ， 则 投资 者 应 该 考虑 卖 出 股票 ， 此 时 股 


highprice, — lowprice,, 


, 


sum(LD,, periodl),LD, » 0 and LD, » HD, 


DMM, =; üu 
2: DMM, + 0,others 


i— period+l 


DMP 
DMI _ PDI, -100x ——- 


DMI _ MDI, 2100x — —- 


DMI _ MDI, — DMI _ PDI, 
DMI _ MDI, + DMI _ PDI, 
DMI _ ADX, + DMI _ ADX 


DMI . ADXR, = I ee ee 


DMI _ ADX, = SMA| 100x , period2 


其 中 ，closeprice 为 收盘 价 ，period1、period2 为 不 同 的 计算 周期 ，period1、period2 均 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。 


趋向 指标 DMI 公式 计算 的 中 文 含义 如 下 。 


“ 对 于 TR 的 计算 : 求 〈 当 天 的 股票 最 高 价 - 当 天 的 股票 最 低 价 ) 和 (当天 的 股票 最 高 价 -昨天 的 股票 收盘 价 的 绝对 值 ) 的 最 大 值 X， 求 X 与 (当天 的 股票 最 低 价 -昨天 的 股票 收盘 价 的 绝对 值 ) 的 最 大 值 的 
period1 计 算 周 期 和 为 TR。 


` HD 为 当天 的 股票 最 高 价 -昨天 的 股票 最 高 价 。 

“LD 为 昨天 的 股票 最 低 价 -当天 的 股票 最 低 。 

` 如 果 HD>0 且 HD>LD， 则 DMP 返 回 HD 的 period1 周 期 之 和 ， 和 否则 返回 0 的 period1 周 期 之 和 。 
- 如 果 LD>0 且 LD>HD， 则 DMM 返 回 LD 的 period1 周 期 之 和 ， 否 则 返回 0 的 period1 周 期 之 和 。 
: DMIL_PDI 等 于 DMP 除 以 TR， 再 乘 以 100。 


: DML MDI 等 于 DMM 除 以 TR， 再 乘 以 100。 


DMI _ MDI, - DMI _ PDI, 
SMA (100x | period2) 


- DMI_ADX 等 于 移动 平均 值 SMA DMI _ MDI, + DMI _ PDI, A 
: DMIL_ ADXR 等 于 当天 ADX 和 前 petiod2 日 的 ADX 之 和 的 平均 值 的 petiod2 周 期 之 和 。 


由 此 编写 DMI 趋向 指标 的 函数 程序 如 下 : 


function [dmi pdi,dmi mdi,dmi adx,dmi adxr] = DMI (highprice,lowprice,closeprice, periodl,period2) 
函数 功能 ，DMI 和 趋向 指标 
highprice, lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
输入 : 

highprice- 为 输入 的 最 高 价 

lowprice- 为 输入 的 最 低 价 

closeprice- 为 输入 的 收盘 价 ,M x N 

period1-SMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= periodl <= N 
a Period2-SMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= period2 <= N 
n: 
dmi pdi :DMI 趋向 指标 PDI 
dmi mdi :DMI 趋向 指标 MDI 
dmi_adx:DMI 趋 向 指标 ADX 
dmi adxr: DMI 趋 向 指标 ADXR 


DMI- 趋 向 指标 计算 


dmi pdi = nan*ones (size (closeprice, 1 


de de de de de de op oe op op op oe op 


op 


る 初始 化 


size (closeprice, 2 


), 
), 


bu: )); 
dmi mdi = nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
dmi adx = nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; る 初始 化 
dmi adxr = nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初始 化 
TR1 = nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
TR = nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; を 初始 化 
HD = nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
LD = nan*ones (size (closeprice,1),size(closeprice,2)); 名 初始 化 
DMP1 = nan*ones (size (closeprice,1),size(closeprice,2)); る 初始 化 
DMP = nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 
DMM1 = nan*ones (size (closeprice,1),size(closeprice,2)); る 初始 化 
DM = nan*ones (size (closeprice,1), size (closeprice,2)); s 初始 化 
for j=1:size(closeprice,1) 
% TR 计 算 
for i-2:size(closeprice,2) 
TR1 (j,i)=max (max (highprice (j,i)-lowprice (j,i),abs (highprice (j,i)-closeprice (j,i-1))),http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompres 
abs (1owprice (j,i)-closeprice(j,i-1))); " 
end 
for i-periodl:size (closeprice, 2) 
TR (j, i) =Sum (TR1 (j, 1-per1od1+1 :1) ) $ Period1 计 算 周期 和 
end 
& HD、LD 计 算 
for i = 2:size(closeprice,2) 
% HD 计算 
HD(j,i)-highprice(j,i)-highprice(j,i-1); 
% LD 计算 
LD(j,i)=lowprice (j,i-1)-lowprice (j,i); 


end 


b DMP、DMM 计 算 
for i = 2:size(closeprice,2) 
DMP 计 算 
if HD(j,i)>0 & HD(j,i)> LD(j,i) 
DMP1 (j,i) = HD(j,i); 
else 
DMP1 (j, i)=0; 
end 
& DMM 计 算 


if LD(j,i)»0 & LD(j, i)^HD(j,i) 
DMI (j,i) = LD(j,i); 


else 
DMM1(j,i) = O; 

end 
end 
% DMP 计 算 
for i=periodl:size (closeprice, 2) 

DMP (j, 1) =sum (DMP1 (j,i-periodl41:i)); る period1 計算 周期 和 
end 
& DMM 计 算 
for i-periodl:size (closeprice,2) 

DMM (j, 1) =sum (DMM1 (j,i-periodl41:i)); る period1l 计 算 周期 和 
end 
PDI 计算 
dmi pdi = DMP./TR*100; 
S MDH 
dmi mdi = DMM./TR*100; 
を ADXilf 


dmi adx = SMA(100*abs (dmi mdi-dmi pdi) ./(dmi mdi+dmi pdi) ,perioa2); 
% SMA 移 动 平均 
% ADXR 
for i = period241:size(closeprice,2) 
dmi adxr(j,i)-(dmi adx(j,i)*dmi adx(j,i-period2))/2; 


end 
end 
编写 相应 的 调用 程序 如 下 : 
clc,clear,close all を 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off る 取消 警告 
feature jit off s 加 速 通道 
load('data000001.mat"') 
openprice = data000001(:,1)'; % 开盘 价 
highprice = data000001(:,2)'; を 最 高 价 
lowprice = data000001(:,3)'; を 最 低 价 
closeprice = data000001(:,4)'; $ 收盘 价 
periodl = 20; % 计算 周期 ,为 整数 ，1<= periodl <= N 
period2 = 30; $ 计算 周期 ,为 整数 ，1<= periodl <= N 
[dmi pdi,dmi mdi,dmi adx,dmi adxr] = DMI (highprice,lowprice,closeprice, periodl,period2) $ DMI 趋向 指标 


figure (2) 

subplot (121) , plot (closeprice','.-'); 

xlabel('t') ;ylabel(' 收 盘 价 人 
subplot(122),plot(dmi pdi','.-'); hold on 
plot(dmi mdi','r.-'); 

plot (dmi adx','g.-'); 

plot (dmi adxr','m.-'); 

xlabel ('t') ;ylabel ('DMI- 趋 向 指标 ') 

legend('dmi pdi','dmi mdi','dmi adx','dmi adxr') 


输出 图 形 如 图 4-13 所 示 。 
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图 4-13 ”大 数据 下 的 DMI 趋向 指标 


444 ”简易 波动 指标 


简易 波动 指标 EMV 是 根据 成 交 量 和 人 气 的 变化 ， 构 成 一 个 完整 的 股价 系统 循环 。 股 票 简易 波动 指标 EMV 围 绕 0 轴 上 下 震荡 。 简 易 波动 指标 EMV 和 股票 成 交 量 直接 相关 ， 当 成 交 量 大 时 ， 此 时 人 气 聚集 ， 
并 且 股 票 上 涨 趋势 将 明显 ,投资 者 可 以 考虑 着 低 买 进 股票 ， 然 而 当成 交 量 逐 渐 表 现 无 力 的 时 候 ， 则 需要 注意 股票 走势 ， 投 资 者 应 该 谨慎 投资 ， 可 以 着 高 卖 出 手中 的 股票 。 


EMV 简 易 波动 指标 值 上 升 ， 代 表 量 跌价 增 ; EMV 简 易 波动 指标 值 下 降 ， 代 表 量 跌价 跌 。EMV 简 易 波 动 指标 值 趋向 于 0， 代 表 大 成 交 量 ; EMV 简 易 波 动 指标 值 >0 时 ， 视 为 买 入 信号 ， 投 资 者 可 以 考虑 买 
入 该 股票 ; EMV 简 易 波动 指标 值 <0 时 ， 视 为 卖 出 信号 ， 投 资 者 应 该 卖 出 股票 。 


具体 的 EMV 简 易 波动 指标 计算 如 下 : 


SMA(tradingvolume,, period) 
Volume, =—— 5A 
tradingvolume, 


highprice, + lowprice, — highprice, , — lowprice, , 


MID, —100x 


highprice, + lowprice, 


MID, xVolume, x (highprice, — lowprice, ) 


E 


= SMA , period 


SMA(highprice, — lowprice,, period) 


其 中 ,tradingvolume 为 股票 交易 量 ，lowprice 为 股票 最 低 价 ，highprice 为 股票 最 高 价 ，period 为 计算 周期 且 均 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。 
SMA 为 简单 移动 平均 值 计算 函数 。 


简单 波动 指标 EMV 公 式 计 算 的 中 文 含义 如 下 。 


・ Volume 为 交易 量 tradingvolum 的 Petriod 个 周期 的 SMA 值 再 除 以 tradingvolume。 
:MID 等 于 100 乘 以 〈 今 日 股票 最 高 价 + 今 日 股票 最 低 价 -昨天 股票 最 高 价 + 昨 天 股票 最 低 价 ) 再 除 以 《今日 股票 最 高 价 + 今 日 股票 最 低 价 ) 。 


:EMV 等 于 [MID 乘 以 Volume 乘 以 〈 今 日 股票 最 高 价 -今日 股票 最 低 价 ) 除 以 (今日 股票 最 高 价 -今日 股票 最 低 价 的 period 周 期 SMA 值 ) ] 的 period 周 期 SMA 值 。 


由 此 编写 具体 的 EMV 计 算 程序 如 下 : 


function emv com = EMV (highprice, lowprice,tradingvolume, period) 
函数 功能 :EMV 简 易 波动 指标 7 
highprice, lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
输入 : 

highprice- 为 输入 的 最 高 价 

lowprice- 为 输入 的 最 低 价 

closeprice- 为 输入 的 收盘 价 

tradingvolume- 交 易 量 
ES Period- 计 算 周期 ,为 整数 ， 小 于 收盘 价 closeprice 列 数 

d 
emv com: EMV 简 易 波 动 指标 


de de de op op op op op op op 


Volume = nan*ones (size (highprice,1), size (highprice, 2) ) ; る 初始 化 
MID = nan*ones (size (highprice,1), size (highprice, 2) ) ; $ 初始 化 
emv_com = nan*ones (size (highprice, 1) , size (highprice,2)); る 初始 化 
计算 Volume 
for j=1:size (highprice,1) s jj 个 类 的 收盘 价 
num volume = SMA (cradingvolume G, r); Seriodj; 
for i-1:size (highprice, 2) 价格 序列 长 度 
Volume (j,i)=num volume (i) ./tradingvolume (j, i ys 
end 
end 
$ 计算 MID 
for j=1:size (highprice, 1) も ] 个 类 的 收盘 价 
for i-2:size (highprice,2) % 价格 序列 长 度 
MID (j, 1) =100* (highprice (j,i )4lowprice (j,i)-highprice (j,i-1)-lowprice (j,i-1))./(highprice (j,i)*lowprice(j,i)); 
end 
end 


$ EMV 简 易 波动 指标 


for j=1:size (highprice, 1) s jj 个 类 的 收盘 价 
den = SMA (highprice (j, :)-lowprice (j, :) “Ser od) 
for i-1:size (highprice, 2) を 价格 序列 长 度 
num(1,1) = MID(j,i).*Volume(j,i).* (highprice(j,i)-lowprice(j,i)); 
end 
emv com(j, :) =SMA (num. /den, period); 


end 


编写 实例 调用 该 程序 如 下 : 


clc,clear,close all 
warning off 
feature jit off 


load('data000001.mat') 


load('tradingvolume.mat') 

openprice = data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; る 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 
closeprice = data000001 (: , 4) bi を 收盘 价 
tradingvolume = tradingvolumn (1,1:420); る 交易 量 
period = 20; $ 计算 周期 ,为 整数 ，1<= periodl <= N 
emv = EMV (highprice, lowprice, tradingvolume, period) 


figure (2) 

subplot (121),plot (closeprice', 1.1); 
xlabel('t');ylabel( (收盘 价 ") 

subplot (122), plot(emv', š 
xlabel('t');ylabel( ("EMV 简 mor 


输出 图 形 如 图 4-14 所 示 。 
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图 4-14 ”大 数据 下 的 EMV 简 易 波 动 指标 


445 Hide 


GDX 扳 道 线 指标 是 一 种 依靠 技术 手段 和 经 验 来 判断 是 否 买卖 股票 的 一 种 指标 ，GDX 史 道 线 指标 能 够 更 好 地 反应 股票 的 直 
力 线 ) 时 ， 用 户 可 考虑 卖 出 手中 的 股票 ， 相 反 ， 当 股票 价格 下 跌 到 压力 线 时 ， 此 时 应 该 考虑 买 入 该 股票 。 


100 200 300 400 500 


E 势 ， 当 股票 价格 上 涨 到 压力 线 (压力 线 有 3 条 ， 根 据 当 前 的 股票 价格 定 当前 的 压 


GDX 鬼 道 线 指标 是 一 种 中 长 期 参考 指标 ，GDX 鬼 道 线 指标 有 3 个 指标 ， 分 别 位 于 不 同 压力 线 水 平 的 趋势 线 上 ， 用 户 可 以 根据 GDX 鬼 道 线 指标 进行 合理 的 买 入 和 卖 出 股票 。 当 GDX 购 道 线 指标 有 上 升 趋 


势 ， 则 表示 股票 上 涨 势头 强劲 ; 反之 ， 当 GDX 鬼 道 线 指标 有 下 降 趋 势 时 ， 则 表示 股票 下 跌 趋 势 明 显 。 


GDX 鬼 道 线 指标 计算 公式 如 下 : 
2X closeprice, + highprice, + lowprice, 


AA = 4 


GDX, = DMA(closeprice,, AA, ) 
" weight 


N 
Q 
II 

| 


函数 。DMA 动 态 移动 平均 值 用 于 计算 一 个 时 间 序列 数据 的 动态 移动 平均 值 。 


鬼 道 线 指标 GDX 公 式 计算 的 中 文 含义 如 下 。 


AAFF (2 倍 的 股票 收盘 价 + 股 票 最 高 价 + 股 票 最 低 价 ) 除 以 4， 再 减 去 (股票 收盘 价 的 SMA 值 ) ， 将 得 到 的 结果 再 除 


:GDX 等 于 股票 收盘 价 的 DMA 动 态 移动 平均 值 。 
・ YL 等 于 GDX 乘 以 (1+weight/100。 
- ZC 等 于 GDX 乘 以 (1-weight/100) o 


由 此 编写 相应 的 GDX 鬼 道 线 指标 函数 如 下 : 


— SMA (closeprice, , period ) 
SMA (closeprice, , period ) 


其 中 ，closeprice 为 股票 收盘 价 ，lowprice 为 股票 最 低 价 ，highprice 为 股票 最 高 价 ，period 为 计算 周期 ，period 均 为 整数 且 小 于 等 于 样本 的 长 度 。weight 为 权重 系数 ，。SMA 为 简 筷 


hm 移动 平均 值 计算 


以 (股票 收盘 价 的 SMA 值 ) ， 最 后 取 绝 对 值 。 


function [gdx com,YL,2C] = GDX(highprice,lowprice,closeprice,period, weight) 
+ KADE: COK- IURIE Ñ dM 

$ highprice, lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 

% 输入 : 


highprice- 为 输入 的 最 高 价 

lowprice- 为 输入 的 最 低 价 

closeprice- 为 输入 的 收盘 价 ,M x N 

Period-SMR 简 单 移动 平均 计算 周期 ,为 整数 ，1<= period <= N 
weight-DMRA 动 态 移动 平均 值 计算 权重 , 为 整数 ，1<= weight <= 100 


gdx com: GDX- 鬼 道 线 指标 
YL: (14weight) *GDX/100 
ZC: (1-weight) *GDX/100 


名 GDX- 鬼 道 线 指标 计算 初始 化 
gdx com = nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
gdx com(:,1)-closeprice(:,1); 


YL = nan*ones (size (closeprice,1),size(closeprice,2)); $ 初始 化 
ZC = nan*ones (size (closeprice, 1) , size (closeprice,2)); $ 初始 化 
AMA = nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初始 化 
AA = nan*ones (size (closeprice,1),size(closeprice,2)); る 初始 化 
る GDX- 鬼 道 线 指标 计算 
for j=1:size(closeprice, 1) 

AMA (j, :)=SMA (closeprice(j, :),period); る SMA 简 单 移动 平均 值 


for i-2:size(closeprice,2) 


AA(j,i)-abs((2*closeprice (j, i) +highprice (j,i)-*lowprice (j,i))/4-AMA(j,i)) ./AMA (j,i); 
% DMA 动 态 平均 计算 

gàx com(j,i)-DMA(closeprice(j,i),AA(j,i1)); % GDX- 鬼 道 线 指标 计算 
gdx com(j,i)=AA (j,i)*closeprice (j,i)+(1-AA(j,i))*gdx com(j,i-1); 
YL(j,i)=(1+weight/100)*gdx com(j,i); 
ZC (j,i)- (1-weight/100) *gdx com(j,i); 


end 


end 


编写 实例 调用 该 函数 如 下 : 


clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 

feature jit off s 加 速 通道 

load('data000001.mat') 


openprice = data000001(:, 
highprice = data000001(:, 
1owprice = data000001(:,3 


; % 最 低 价 
closeprice = data000001(:,4)'; を 收盘 价 
period = 2; s 计算 周期 ,为 整数 ，1<= period1 <= N 
weight = 60; s BUB, 1<=weight<=100 


[gdx， 


YL,ZC] = GDX (highprice, lowprice, closeprice, period, weight) 
る GDX- 鬼 道 线 指标 


figure (2) 

subplot (121) ,plot (closeprice','.-'); 
xlabel('t');ylabel ("Ir 8tfr') 

subplot (122) ,plot (gdx', 'r.—"); hold on 
plot(YL','g.-'); 

plot(Z2C','b.-'); 
xlabel('t');ylabel('GDX-ARUÉ £&Ji bg " ) 


输出 


收盘 价 


4.16 


绝路 
绝路 


通常 


图 形 如 图 4-15 所 示 。 
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图 4-15 大 数据 下 的 GDX 鬼 道 线 指 标 


绝路 航标 指标 


航标 指标 儿 HB 综 合 了 动量 观念 、 强 弱 指 标 与 移动 平均 线 的 优点 ， 在 计算 过 程 中 主要 研究 高 低 价位 与 收市 价 的 关系 ， 反 映 价 格 走势 的 强 弱 和 超 买 超 卖 现 象 。 
航标 指标 儿 HB 为 反 趋势 类 选 股指 标 ， 是 一 个 中 短期 操作 指标 。 绝 路 航标 指标 儿 HB 参 考 值 较为 明显 ， 只 有 0 和 50 两 个 值 之 分 。 


情况 下 ， 绝 路 航标 指标 儿 HB 处 于 0 位 置 ， 但 是 当 绝 路 航标 指标 儿 HB 出 现 非 0 值 ， 即 当 绝 路 航标 指标 儿 HB 等 于 50 时 ， 此 时 说 明 该 股票 有 大 量 潜入 资金 进入 ， 后 期 该 股票 将 会 大 涨 ， 就 算 该 股票 不 大 涨 


也 不 会 大 跌 ， 因 此 投资 者 可 以 关注 绝路 航标 指标 儿 HB 的 变化 值 。 


绝路 


绝路 


航标 指标 儿 HB 可 用 于 大 盘 预 测 ， 也 可 以 作为 个 股 的 参考 依据 。 


航标 指标 儿 HB 的 计算 公式 如 下 : 


f&. 


Var, = 80x 


B, = EDMA(Var|,, period, 1) 


Vas, = EDMA(B,, period2,1) 


JLHB, — 
0, others 


由 于 HHV 和 LLV 计 算 周期 均 为 60 日 ， 因 此 closeprice 股 票 收 盘 价 、lowprice 股 票 最 低 价 、highprice 股 票 最 高 价 样 本 长 度 大 于 等 于 61。 


绝路 航标 指标 儿 HB 公 式 计 算 的 中 文 含 义 如 下 。 
: Var 等 于 80 乘 以 〈 股 票 收 盘 价 -60 日 的 股票 最 低 价 ) 除 以 (60 日 股票 最 高 价 -60 日 股票 最 低 价 ) 。 
:了 等 于 Var1 的 指数 移动 平均 值 EDMA。 
“Vas 等 于 B 的 指数 移动 平均 值 EDMA。 


如 果 B 上 穿 Var2， 并 且 B 小 于 40， 则 儿 HB 绝 路 航标 等 于 50， 否 则 ， 儿 HB 绝路 航标 等 于 0。 


由 此 编写 上 LHB 绝 路 航标 程序 如 下 : 


unction [jlhb com] 
函数 功能 ，JLHB- 绝 路 航标 
re lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
WA: 


= JLHB (highprice, lowprice, closeprice, periodl, period2) 


f 
$ highprice- 为 输入 的 最 高 价 

$ lowprice- 为 输入 的 最 低 价 

$ closeprice- 为 输入 的 收盘 价 ,M x N 

$ period1-SMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= period <= N 
$ period2-SMA 简 单 移动 平均 计算 周期 ,为 整数 ，1<= period <= N 


j 1lhb_com:JLHB- 绝 路 航标 


输出 


S JLHB 绝 路 航标 初始 化 


jlhb com = nan*ones (size (closeprice, 1) , size (closeprice,2)); s 初始 化 
Varl = nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初始 化 
B = nan*ones (size (closeprice, 1) ,size(closeprice,2)); る 初始 化 
Var2 = nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 
HV = nan*ones (size (closeprice,1), size (closeprice, 2)); る 初始 化 
LV = nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; る 初始 化 
$ JLHB 绝 路 航标 计算 
for j=1:size(closeprice,1) 
HV (j, :)=HHV (highprice(j, :),60); る HHV- 序 列 最 大 值 
LV(j，:)=LLV(Lowprice (j, : ) , 60); $ LLV- 序 列 最 小 值 


for i-1:size(closeprice,2) 
Varl(j,i)-(closeprice (j,i)-1V (,i)) ./ (HV (j,i) LV (,i)) *80; 
end 
B (j, 60:end) -EDMA (Var1 (j, 60:end) , periodl,1); EDMA -指数 移动 平均 值 
Var2 (j, 60:end) -EDMA (B (j, 60:end) ,period2,1); EDMA -指数 移动 平均 值 


$E? 
for i-61:size(closeprice,2) 
if B(j,i-1)«Var2(j,i-1) & B(Q,i)»B(j,i-1) | & B(j,i)»Var2(j,i) & B(j,i)«40 
jlhb com(j,i-1)-50; る JLHB 绝 路 航标 
else 
jihb com(j,i-1)-0; る JLHB 绝 路 航标 
end 
end 
end 
EDMA 函 数 程序 如 下 : 


50,cross ( B,,Var2,) & B, < 40 


closeprice, — LLV (lowprice,,60) 
HHV (highprice,,60) — LLV (lowprice,,60) 


其 中 ，closeprice 为 股票 收盘 价 ，lowprice 为 股票 最 低 价 ，highprice 为 股票 最 高 价 ，period1、period2 为 计算 周期 ，period1、period2 均 为 整数 ， 并 且 小 了 


等 于 样本 的 长 | 


度 。EDMA 为 指数 移动 平均 


function edma com = EDMA (price, period, weight) 
s EDMA -指数 移动 平均 值 
LA: 
Price- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1, 整数 
weight: 松 値 , 1<=weight<=period, 整数 


edma com: EDMA -指数 移动 平均 值 
edma com(:,1)-price(:,1); を 初始 化 
for j-1:size (price, 1) を 行 ， 每 一 行 一 个 时 间 序列 数据 
for i-2:length (price) る 从 t=2 开 始 计算 
edma com(j,i)- (weight/period) *price(j,i)-*((period-weight) /period)*edma com(j,i-1); 
end 
end 


输出 


de de de op sp oe op 


% EDMA -指数 移动 平均 值 


编写 实例 调用 该 程序 如 下 : 


clc,clear,close all 
warning off 

feature jit off $ 
highprice = [2212.35 221 


清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
取消 敬告 


.59 2228.87 2242.98 2240.25 2228.11 2211.03 2203.29 
load('data000001.mat') 


load('tradingvolume.mat') 
openprice = data000001(:,1)'; を 开盘 价 


2230.28 


2227.34 


2226.85 


2183.41 


2170.61 


2140.96 


2163.66 


2161. 


highprice - data000001(:,2)'; る 最 高 价 

lowprice = gata000001 (: NOE n % 最 低 价 

closeprice = data000001 (: ,4) t% $ 收盘 价 

tradingvolume = tradingvolumn (1, 1:420); $ 交易 量 

periodi = 10; る 计算 周期 ,为 整数 ，1<= periodl <= N 

period2 = 30; を 计算 周期 ,为 整数 ，1<= period2 <= N 

jihb = JLHB (highprice, lowprice,closeprice,periodl,period2) % JLHB 绝 路 航标 
figure (2) 

subplot (121) ,plot (closeprice', '.-') ;xlabel('t');ylabel(' 收 盘 价 ') 

subplot (122),plot(jlhb','.-'); xlabel('t');ylabel ('JLHB 绝 路 航标 ') 


输出 图 形 如 图 4-16 所 示 。 
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图 4-16 ”大 数据 下 的 JLHB 绝 路 航标 


447 ”加 速 线 指标 


300 400 500 


加 速 线 指标 JS 是 反映 股票 上 涨 下 跌 趋 势 的 短期 指标 。 加 速 线 指标 JS 向 上 突破 0 时 ， 则 股票 价格 短期 内 上 涨 可 能 性 极 大 ， 此 时 投资 者 可 以 介入 买 入 股票 ， 相 反 ， 当 加 速 线 指标 JS 向 下 突破 0 时 ， 则 股票 短期 


内 下 跌 可 能 性 增 大 ， 此 时 投资 者 可 以 着 高 卖 出 股票 。 加 速 线 指标 JS 上 升 的 动力 越 大 ， 则 股票 上 涨 的 势头 越 强劲 ， 加 速 线 指标 JS 下 跌 速 率 越 大 ， 则 股票 作 


加 速 线 指标 JS 计 算 公式 如 下 : 


closeprice, 一 closeprice,_,,, 

= — period 

JS, =100x 一 D 
period x closeprice, period 


其 中 ，closeprice 为 收盘 价 ，period 为 计算 周期 ，period 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。 


加 速 线 指标 JS 公式 计算 的 中 文 含 义 为 : JS 等 于 100 乘 以 (当前 收盘 价 -前 perioqd 日 收盘 价 ) 除 以 (periodx 前 period 日 收盘 价 ) 。 


由 此 编写 JS 加 速 线 指标 函数 程序 如 下 : 


function [s com] = JS (closeprice, period) 
函数 功能 ，JS- 加 速 线 指标 
eloseprice: :在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 


closeprice- 为 输入 的 收盘 价 ,M x N 
period- 计 算 周 期 ,为 整数 ，1<= period <= N 


$ 输出 : 
& js com: JS 加 速 线 指标 


% JS- 加 速 线 指标 初始 化 


js com = nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 


% JS- 加 速 线 指标 
for j-1:size(closeprice, 1) 
for 1=pertod+1 : s1ze (closeprice,2) 
js com(j,i)-100* (closeprice (j,i)-closeprice (j, i-period) ) ./ (period*closeprice(j,i-period)); 
en 
end 


价格 将 有 一 定 的 回落 ， 此 时 为 卖 出 信号 。 


编写 实例 调用 该 程序 如 下 : 


clc,clear,close all を 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off gs 取消 警告 
feature jit off s 加 速 通道 


load('data000001.mat') 


openprice = data000001(:,1)'; を 开盘 价 

highprice = data000001(:,2)'; を 最 高 价 

lowprice = data000001(:,3)'; $ 最 低 价 

Closeprice = data0000011: ,4)'; $ 收盘 价 

period = 20; b 计算 周期 ,为 整数 ，1<= periodl <= N 
A = JS (closeprice, period) る JS- 加 速 线 指 标 


figure (2) 
subplot (121),plot (closeprice','.-'); 
xlabel('t') ;ylabel(' 收 盘 价 ') 


subplot (122) ,plot(js','.-'); 
xlabel ('t') ;ylabel ('JS 加 速 线 指标 ') 


输出 图 形 如 图 4-17 所 示 。 
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图 4-17 大 数据 下 的 JS 加 速 线 指标 


4.18 平滑 异同 平均 指标 


平滑 异同 平均 指标 MACD 的 计算 ，MATLAB 金 融 工 具 箱 也 给 出 了 对 应 的 macd 函 数 供用 户 直接 使 用 。 平 滑 异 同 平均 指标 MACD 是 一 种 短期 股票 买卖 参考 指标 ， 基 于 均线 的 构造 原理 ， 对 股票 价格 收盘 价 
进行 平滑 处 理 ， 其 平滑 手段 采用 股票 收盘 价 的 指数 平滑 移动 平均 值 计算 函 数 EMA。 


MACD 平 滑 异同 平均 指标 包含 3 个 指标 ， 即 DIF 指 标 、DEA 指 标 以 及 MACD 指 标 ， 当 DIF 指 标 向 上 交叉 MACD 时 ， 则 表示 为 股票 买 入 信号 ; 当 DIF 指 标 向 下 交叉 MACD 时 ， 则 表示 股票 为 卖 出 信和 号。 如 果 
DIF 指 标 连续 两 次 向 下 交叉 MACD 曲 线 ， 则 表示 股票 价格 出 现 较 大 的 跌幅 ; 如 果 DIF 指 标 连 续 两 次 向 上 交叉 MACD 曲 线 ， 则 表示 股票 价格 出 现 较 大 的 涨幅 ; 如 果 DIF 指 标 和 MACD 曲 线 趋势 形成 背离 状态 ， 即 
股票 价格 创 出 新 高 ， 而 MACD 未 能 创 出 新 高 ， 则 表示 此 时 股票 见 顶 的 概率 很 高 。 


MACD 平 滑 民 同 平均 指标 的 计算 公式 如 下 : 
EMA long, = EMA(closeprice,, periodl) 
EMA short, = EMA(closeprice,, period 2) 
DIF, = EMA short, - EMA long, 
DEA, = EMA(DIF,, period3) 


MACD, -2x(DIF, — DEA ) 


其 中 ，closeprice 为 股票 收盘 价 ，period1、period2、period3 为 计算 周期 ，period1、period2、period3 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。EMA 为 指数 平滑 移动 平均 值 计算 函数 。 
平滑 异同 平均 指标 MACD 公 式 计算 的 中 文 含义 如 下 。 

・ EMA_long 等 于 当前 股票 收盘 价 的 period1 周 期 的 EMA 指 数 平滑 移动 平均 。 

“ EMA_short 等 于 当前 股票 收盘 价 的 period2 周 期 的 EMA 指 数 平滑 移动 平均 。 

・ DIF 等 于 EMA_long 减 EMA_shor。 

・ DEA 等 于 DIF 的 period3 周 期 的 EMA 指 数 平滑 移动 平均 值 。 

・ MACD 等 于 2 倍 的 (DIF 减 DEA) o 


由 此 编写 MACD 平 滑 异同 平均 指标 程序 如 下 : 


function [dif com,dea com,macd com] = MACD(closeprice,periodl,period2, period3) 
% 函数 功能 : MACD 平 滑 异同 平均 指标 

$ quoseprice RU RB-EBEN =a, 即 为 行 向 量 

A: 

closeprice- 为 输入 的 收盘 价 ,M x N 

period1- 计 算 周 期 ,为 整数 ，1<= period <= N 


de dp oe 


Period2- 计 算 周期 ,为 整数 ，1<= period <= N 
Period3- 计 算 周期 ,为 整数 ，1<= period <= N 


输出 : " 
平均 指标 -DEA 指 标 
平均 指标 -DIE 指标 
同 平均 指标 


dif com: MACD 平 滑 异 
dea com: MACD 平 滑 异 
macd com: MACD 平 滑 异 


% MACD 平 滑 异同 平均 指标 初始 化 
dif com = nan*ones (size (closeprice, 1) , size (closeprice, 2) ); 
dea com = nan*ones (size (closeprice, 1) ,size(closeprice,2)); 
macd com = nan*ones (size (closeprice,1),size (closeprice,2)); 


& MACD 平 滑 异 同 平均 指标 
for j=1:size (closeprice, 1) 
EMA long(j,:) = EMA(closeprice(j, : ) , period1 ) ; 
EMA short (j,:) = EMA(closeprice(j,:),period2); 
dif com(j,:)-EMA short(j,:)-EMA long(j,:); 
dea com(j, :) -EMA(dif com(j, :) , per1od3) ; 
macd com(j, :)-2* (dif com(j,:)-dea com(], :) ) 
end 


z) a 


de de de gp sp oe 


je 


编写 实例 调用 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 7 
feature jit off s 加 速 通道 


load('data000001.mat') 


openprice = data000001(:,1)'; s FEN 
highprice = data000001(:,2)'; を 最 高 价 
lowprice = data000001(:,3)'; を 最 低 价 


closeprice = data000001(:,4)'; % 收盘 价 
periodl = 60; % 计算 周期 ,为 整数 ，1<= periodl <= N, 长 周期 
period2 = 30; 


% 计算 周期 ,为 整数 ，1<= periodl <= N, 短 周 期 
period3 = 50; % 计算 周期 ,为 整数 ，1<= periodl <= N，dea 计 算 周期 
[dif,dea,macd] = MACD (closeprice,periodl,period2,period3) 
figure (2) 
subplot (121),plot (closeprice','.-'); 


xlabe1 ( て") ;ylabel(' 收 盘 价 ') 
subplot(122),plot(dif','r.-'); hold on; 
plot (dear, 'g.-'); 

plot (macd', 'b.-'); 

legend('DIF','DEA', 'MACD') 

xlabe1 ('t') ; ylabe1 ("MACD 平滑 昇 同 平均 指 本 " ) 


S MACD 平 滑 异 同 平均 指标 


输出 图 形 如 图 4-18 所 示 。 
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4.19 ”快速 异同 平均 指标 


快速 异同 平均 指标 QACD 和 平滑 异同 平均 指标 MACD 表 示 方 法 一 致 。 快 速 异 同 平均 指标 QACD 和 平滑 异同 平均 指标 MACD 均 由 DIF 指 标 和 DEA 指 标 计算 得 来 。 然 而 MACD 则 
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500 


线 采用 2 倍 的 DIF 与 DEA 的 差 


值 来 表示 MACD 值 ，QACD 则 直接 由 DIF 与 DEA 的 差 值 来 表示 。 因 此 QACD 快 速 异 同 平均 指标 是 MACD 平 滑 异同 平均 指标 的 一 种 进化 指标 ， 相 对 于 MACD 平 滑 异 同 平均 指标 而 言 ，QACD 快 速 异 同 平均 指标 


更 加 适合 于 中 短线 的 投资 操作 。 


QACD 快 速 异同 平均 指标 的 计算 公式 如 下 : 


EMA p, = EMA(closeprice,, periodl) 
EMA 7 = EMA(closeprice,, period2) 
DIF -EMA p,—EMA の 
DEA, = EMA(DIF,, period3) 


QACD, = (DIF, — DEA) 


其 中 ，closeprice 为 收盘 价 ，period1、period2、period3 为 计算 周期 ，period1、period2、period3 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。EM A 为 指数 平滑 移动 平均 值 计算 函数 。 
快速 异同 平均 指标 QACD 公 式 计算 的 中 文 含义 如 下 。 

` EMA_p 等 于 当前 收盘 价 的 period1 周 期 的 EMA 指 数 平滑 移动 平均 值 。 

` EMA_q 等 于 当前 收盘 价 的 period2 周 期 的 EMA 指 数 平滑 移动 平均 值 。 

・ DIF 等 于 EMA_p 减 EMA_q。 

: DEA 等 于 DIF 的 period3 周 期 的 EMA 指 数 平滑 移动 平均 值 。 

・ QACD 等 于 (DIF 减 DEA) 。 


由 此 编写 QACD 快 速 异 同 平均 指标 程序 如 下 : 


unction [dif com,dea com, qacd com] = QACD (closeprice, periodl, period2, period3) 
画数 功能 ; QATDI SE TY Pn - 

closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 

A: 


f 

$ 输入 : 

$ closeprice- 为 输入 的 收盘 价 ,M x N 

$ Period1l- 计 算 周期 ,为 整数 ，1<= period <= 


N 
Period2- 计 算 周期 ,为 整数 ，1<= period <= N 
Period3- 计 算 周期 ,为 整数 ，1<= period <= N 


平均 指标 -DER 指标 
平均 指标 -DIE 指标 
同 平均 指标 


dif com: QACD 快 速 异 
dea_com: QACD 快 速 异 
qacd_com: QACD 快 速 异 


同 
同 


る OACD 快 速 异 同 平均 指标 初始 化 
dif com = nan*ones (size (closeprice, 1) , s1 ze (closeprice, 2) ) ; 务 

dea com = nan*ones (size (closeprice, 1 ) , size (closeprice, 2) ) : る 初始 化 
qacd com = nan*ones (size (closeprice, 1) , size (closeprice,2)); $4 


QACD 快 速 异 同 平均 指标 


for j=1:size (closeprice,1) 


EMA p(j,:) = EMA(closeprice(j, :),period1); 
EMA q(j,:) = EMA(closeprice(j, : ) , period2); 
dif com(j,:)-EMA p(j, :) -EMA q(j,:); 


dea com(], :)=EMA (dif com(j,:),period3); 
qacd com(j, :) - (dif com(j, :)-dea com(j, :) ) 
end 


相应 的 指数 平滑 移动 平均 值 计算 函 数 计算 如 下 : 


unction ema com = EMA (price, period) 


函数 功能 ，EMA- 指 数 平滑 移动 平均 值 


输入 : 
Price- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1 


ema com: EMA- 指 数 平滑 移动 平均 值 
ema com(:,1)-price(:,1); 
for i-2:length (price) 
ema com(:,i)-2*price(:,i)./(periodtl)tema com(:,i-1)*(period-1)/ (period*1); 
end 


d 


编写 实例 调用 程序 如 下 : 


clc,clear,close all る 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 
feature jit off を 加 速 通道 


load('data000001.mat') 


openprice = data000001(:,1)'; s 开盘 
highprice = data000001(:,2)'; を 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 
closeprice = data000001(:,4)'; $ 收盘 价 


periodl = 30; $ 计算 周期 ,为 整数 ，1<= periodl <= N, 长 周期 


period2 = 50; % 计算 周期 ,为 整数 ，1<= periodl <= N， 短 周期 

period3 = 80; % 计算 周期 ,为 整数 ，1<= periodl <= N，dea 计 算 周期 

[dif, dea, qacd] = QACD(closeprice, periodl, per1od2, period3) を QACD 快 速 异 同 平均 指标 
figure (2) 

subplot (121) ,plot (closeprice','.-'); 

xlabel ('t') ;ylabel(' 收 盘 价 ') 

subplot (122) ,plot (dif','r.-'); hold on; 


plot (dea', 'g.-"); 

plot (gacd', 'b.-'); 

legend('DIF','DEA', 'QACD') 

xlabel ('t') ;ylabel ('QACD 快 速 异 同 平均 指标 ') 


输出 图 形 如 图 4-19 所 示 。 
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4.20 ” 强 弱 值 指标 


4-19 ”大 数据 下 的 QACD 快 速 异 同 平均 指标 
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QR 强 弱 值 指标 是 计算 股票 走势 强 弱 的 一 种 技术 指标 。QR 强 弱 值 指标 上 涨 表明 股票 价格 寻 
不 看 好 该 股票 ， 此 时 用 户 可 以 考虑 其 他 股票 。 


E 势 逐渐 强 于 大 盘 寺 


lE 势 ， 则 后 市 看 好 该 股票 ;QR 强 弱 值 指标 下 跌 表 明 股 票 价格 走势 逐渐 走 弱 于 大 盘 走 势 ， 则 后 


强 弱 值 指标 QR 正常 在 +20 附 近 震 荡 ， 当 强 弱 值 指标 QR 向 上 势头 强劲 时 ， 此 时 可 以 介入 买 入 该 股票 ， 该 股票 上 涨 的 可 能 性 较 大 。 如 果 强 弱 值 指标 QR 向 下 并 下 穿 0 轴 时 ， 


该 股票 极 大 可 能 性 会 下 跌 。 


QR 强 弱 值 指标 计算 公式 如 下 : 


closeprice, — closeprice, 


GG, =100x 


closeprice 


t— period 


— period 


indexcloseprice, — indexcloseprice, 


DP, -100x 


t 


QR, = EMA(GG, — 


强 弱 值 指标 QR 公 式 计算 的 中 文 含义 如 下 。 


indexcloseprice, 


DP,2) 


“GG 等 于 100 乘 以 (当前 个 股 收盘 价 减 period 日 前 个 股 收盘 价 ) 再 除 以 〈pPeriod 日 前 的 个 股 收盘 价 ) 。 


・ DP 等 于 100 乘 以 〈 当 前 大 盘 收盘 价 减 petiod 日 前 大 盘 收 盘 价 ) HRA (period A Wi KAEN) 。 


・ QR 等 于 (GG-DP) 的 2 日 EMA 指 数 平滑 移动 平均 值 。 


由 此 编写 QR 强 弱 值 指标 程序 如 下 : 


— period 


— period 


其 中 ，closeprice 为 收盘 价 ，period 为 计算 周期 ，period 为 整数 ， 且 小 于 等 于 样本 的 长 度 。indexcloseprice 为 大 盘 指 数 。EMA 为 指数 平滑 移动 平均 值 计 算 函 数 。 


比 时 用 户 应 该 考虑 卖 出 该 股票 ， 


function [gr com] = QR(closeprice, indexcloseprice, period) 
s 画数 功能 ; ORG — : 
$ SUL Sm has 即 为 行 向 量 
^: 
closeprice- 为 输入 的 个 股 收盘 价 ,M x N 
indexcloseprice- 为 输入 的 大 盘 收盘 价 ,M x N 
Period- 计 算 周期 ,为 整数 ，1<= period <= N 
IUE 
qr com: QR 强 弱 值 指标 


% QR 强 弱 值 指标 初始 化 


de op de de op oe 


qr com = nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
GG = nan*ones (size (closeprtoe, 1 ) , size (closeprice, 2) ) ; る 初始 化 
DP = nan*ones (size (closeprice,1),size (closeprice,2)); を 初始 化 


QR 强 弱 值 指标 
for j=1:size (closeprice, 1) 
for i=period+1:size (closeprice, 2) 


GG (j, i)=100* (closeprice (j,i)-closeprice (j, i-period) ) ./closeprice (j, i-period) ; 
DP (j, 1) =100* (indexcloseprice (j, i)-indexcloseprice (j, i-period) ) ./indexcloseprice (j,i-period); 


end 
qr_com(j,period+1:end)=EMA (GG (j, period+1:end) -DP (j, period*l:end),2); 
end 


编写 实例 调用 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off 3 取消 警告 
feature jit off 加 速 通道 


load('data000001.mat') 
load('data600193.mat"') 


indexcloseprice = data600193(:,4)'; る 个 股 收盘 价 
openprice = data000001(:,1)'; & 开盘 价 
highprice = data000001(:,2)'; s 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 


closeprice = data000001(:,4) 7 を 收盘 价 
period = 30; b 计算 周期 ,为 整数 ，1<= period <= N, KAW 
qr = QR(closeprice, indexcloseprice, period) $ OR 强 弱 值 指标 


figure (2 


subplot (121),plot (closeprice',.-'); 
xlabel.('t');ylabel ("收盘 价 ') 


hold on 


plot (indexclose| 
D REE 

; ylabel ("Ati ') 

subplot (122) ,plot (qr','.- 


legend (' 个 股 收盘 
xlabel('t' 


rice-mean (indexcloseprice) mean (closeprice), 'r.-'); 


' 


xlabel('t'); 


); 
ylabel ('DFMA 平 均线 差 ') 


输出 图 形 如 图 4-20 所 示 。 
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图 4-20 ”大 数据 下 的 QR 强 弱 值 指标 


421 ”三重 指 数 平滑 平均 线 指标 


居 这 条 移动 平均 线 的 变动 情况 来 预测 股价 的 长 期 走势 ， 是 一 种 研究 股价 趋势 的 长 期 技术 分 析 工具 。 


三 重 指数 平滑 平均 线 指标 TRIX 根 据 移动 平均 线 理论 ， 对 移动 平均 线 进行 3 次 平滑 处 理 ， 再 根 拉 


TRIX 三 重 指数 平滑 平均 线 由 下 往 上 穿 过 0 轴 时 ， 从 长 期 看 为 买 进 信号 ， 此 时 投资 者 可 以 考虑 买 入 该 股票 ; TRIX 三 重 指数 平滑 平均 线 由 上 往 下 穿 过 0 轴 时 ， 从 长 期 来 看 视 为 卖 出 信号 ， 此 时 投资 者 可 以 着 高 
卖 出 手中 的 股票 。 


由 指数 平滑 平均 线 上 升 的 速率 反映 股票 价格 上 涨 的 幅度 ，TRIX 三 重 指数 平滑 平均 线 上 升 越 快 ， 股 票 价格 上 涨 越 快 ，TRIX 三 重 指数 平滑 平均 线 下 降 速 率 越 大 ， 股 票 价格 下 跌 也 越 快 。 


此 投资 者 可 


TRIX=B 
根据 TRIX 三 重 指数 平滑 平均 线 合理 地 掌控 买 入 的 股票 。 


TRIX 三 重 指数 平滑 平均 线 指 标 计算 公式 如 下 : 
EMAI, = EMA(closeprice,, period ) 


EMA2, = EMA (EMA (closeprice, , period) period) = EMA ( EMAI, , period ) 


EMA3, = EMA (EMA (EMA (closeprice,, period), period), period ) = EMA( EMA2,, period) 


EMA3, — EMA3, , 


TRIX, =100x 
EMA3, , 


指数 平滑 平均 线 指 标 TRIX 公 式 计算 的 中 文 含义 如 下 。 
“EMA1 等 于 收盘 价 的 petiod 日 EMA 指 数 平滑 移动 平均 值 。 
“ EMA2 等 于 EMA1 的 period 日 EMA 指 数 平滑 移动 平均 值 。 
- EMA3 等 于 EMA2 的 period 日 EMA 指 数 平滑 移动 平均 值 。 
: TRIX 等 于 100 乘 以 (当日 EMA3 减 昨日 EMA3) 再 除 以 (昨日 EMA3) o 


由 此 编写 TRIX 三 重 指数 平滑 平均 线 指标 如 下 : 


其 中 ，closeprice 为 股票 收盘 价 ，period 为 计算 周期 ，period 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。EMA 为 指数 平滑 移动 平均 值 计算 函 数 。 


function [trix i ex) = TRIX (closeprice, period) 
% 函数 功能 :TRIX 三 重 指数 平滑 平均 线 指标 
% Closeprice: :在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
を WA: 
$ closeprice- 为 输入 的 个 股 收盘 价 ,M x N 
$ Period- 计 算 周期 ,为 整数 ，1<= period <= N 
% 输出 ; 
$ trix com: TRIX 三 重 指数 平滑 平均 线 指标 
数 平滑 平均 线 指标 初始 化 
= nan*ones (size (closeprice, 1), size (closeprice,2)); % 初始 化 
s (size (closeprice,1),size(closeprice,2)); M 初始 化 
s (size (closeprice,1),size (Closeprtce, 2) ) : % 初始 化 
s (size (closeprice,1),size (Closeprtce, 2) ) : を 初始 化 
平滑 平均 线 指标 
closeprice,1) 
= EMA (closeprice(j, : ) ,period); 
= EMA (EMA1 (j, :) , period); 
= EMA (EMR2 (j, :) ,perioQ); 
for i-2:size(EMA3,2) 
trix com(j,i) = 100* (EMA3 (j,i)-EMA3 (j,i-1)) ・/ (EMA3 (j,i-1)); 
end 
end 
编写 实例 调用 该 程序 如 下 : 
clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off s 加 速 通道 
load('data000001.mat"') 
openprice = data000001(:,1)'; % 开盘 价 
highprice = data000001(:,2)'; % 最 高 价 
lowprice = data000001(:,3)'; % 最 低 价 
closeprice = data000001 (: A); を 收盘 价 
period = 30; & 计 和 个 周期 ， TEN. 1<= period <= N, 长 周期 
trix = TRIX (closeprice, period) る TRIX 三 重 指数 平滑 平均 线 指标 
figure (2) 
subplot (121),plot (closeprice','.-'); 
xlabel.('t');ylabel ("收盘 价 ') 
subplot (122) ,plot (trix','.-'); 
xlabel ('t') ;ylabel ('TRIX 三 重 指数 平滑 平均 线 指标 ') 
输出 图 形 如 图 4-21 所 示 。 
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图 4-21 大 数据 下 的 TRIX 三 重 指数 平滑 平均 线 指 标 


422 ”终极 指标 


终极 指标 UOS 由 拉 里 ? 威廉 姆 斯 (Larry Williams) 所 创 。Larry Williams 认 为 现行 使 用 的 各 种 振荡 指标 ， 对 于 周期 参数 period 的 选择 相当 敏感 。 针 对 不 同 工 况 ， 不 同 参数 下 的 振荡 指标 产生 的 结果 截然 


不 同 。 因 此 选择 最 佳 的 参数 组 合 ， 成 为 各 个 指标 是 否 有 效 的 关键 点 。 


当 终 极 指标 UOS 在 50 ~ 70 之 间 时 ， 较 之 50 点 以 下 的 股票 价格 是 整体 上 涨 的 ， 也 就 是 说 此 时 股票 价格 在 50 点 以 上 震 


上 涨 ， 终 极 指标 UOS 下 降 时 ， 则 表示 该 股票 价格 短期 内 有 回落 可 能 
UOS 在 50 点 以 下 时 ， 投 资 者 可 以 着 低 买 入 股票 ， 不 必 满 仓 ， 静 静观 望 ， 等 待 切入 最 佳 时 间 点 。 


荡 ; 当 终 极 指标 UOS 在 50 ~ 70 之 间 ， 终 极 指标 UOS 上 升 时 ， 则 表示 股票 价格 短期 内 将 


。 当 终极 指标 UOS 大 于 70 时 ， 则 表示 股票 价格 达到 短期 内 最 高 点 ， 此 时 用 户 可 以 着 高 卖 出 该 股票 ， 该 股票 回调 可 能 性 极 大 。 当 终极 指标 


UOS 终 极 指标 计算 公式 如 下 : 


TH, = max (highprice, ,closeprice, ,) 


TL, = min(/owprice,,closeprice, ,) 


/ ice, — TL,, period] 
ACB, - sum(closeprice, ,, periodl) 

sum(TH, — TL,, periodl) 
sum (closeprice, — TL,, period2) 
i sum(TH, —TL,, period2) 


sum(closeprice, — TL,, period3) 
I sum(TH, —TL,, period3) 


ACB, x period2 x period3 + 
ACC, x periodl x period3 + 
ACD, x periodlx period2 


UOS, = 100x 一 —— ————— ——————————— 
periodlx period 2 + periodlx period3 + period2x period3 


其 中 ，closeprice 为 股票 收盘 价 ，lowprice 为 股票 最 低 价 ，highprice 为 股票 最 高 价 ，period1、period2、period3 为 计算 周期 ，period1、period2、period3 均 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。 
终极 指标 UOS 公 式 计 算 的 中 文 含义 如 下 。 

“TH 等 于 今日 股票 最 高 价 与 昨日 股票 收盘 价 的 最 大 值 。 

“TL 等 于 今日 股票 最 低 价 与 昨日 股票 收盘 价 的 最 小 值 。 

・ ACB 等 于 period1 周 期 内 的 收盘 价 与 TL 的 差 值 和 与 TH-TL 差 值 和 的 比值 。 

・ ACC 等 于 period2 周 期 内 的 收盘 价 与 TL 的 差 值 和 与 TH-TL 差 值 和 的 比值 。 

・ ACD 等 于 period3 周 期 内 的 收盘 价 与 TL 的 差 值 和 与 TH-TL 差 值 和 的 比值 。 

- UOS 等 于 ACB、ACC 和 ACD 的 加 权 平 均 和 ， 再 乘 以 100。 


由 此 编写 UOS 终 极 指标 程序 如 下 : 


function [uos com] = UOS (highprice, lowprice, closeprice,periodl,period2, period3) 
% 函数 功能 :UO5 终 极 指标 

る k iobprissy lowprice, closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 

% 输入 : 

$ highprice- 为 输入 的 最 高 价 

$ lowprice- 为 输入 的 最 低 价 

$ closeprice- 为 输入 的 收盘 价 ,M x N 

$ Periodl1- 计 算 周期 ,为 整数 ，1<= periodl <= N 

$ Period2- 计 算 周期 ,为 整数 ，1<= period2 <= N 

る sis Period3- 计 算 周期 ,为 整数 ，1<= period3 <= N 

% 输出 : 
$ uos_com:UOS 终 极 指标 


$ UOS 终 极 指标 初始 化 


uos com = nan*ones (size (closeprice,1),size (closeprice,2)); % 初始 化 
TH = nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; る 初始 
TL = nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; % 初始 化 
CTL = nan*ones (size (closeprice,1),size (closeprice,2)); % 初始 化 
CTH = nanxones (size (closeprice,1),size(closeprice,2)); る 初始 化 
ACC1 = nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 
ACC2 = nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 
ACC3 = nan*ones (size (closeprice,1), size (closeprice,2)); る 初始 化 


UOS 终 极 指标 计算 
for j=1:size (closeprice,1) 
for i-2:size(closeprice,2) 
TH (j, 1) =max (highprice (j, 1) , closeprice (j, ユー1) ) 
TL (j, 1) =min (1owprice (j, i),closeprice (j, ユー1) ) 
end 
for i-1:size(closeprice,2) 
cTL (j, i)=closeprice (j,i)-TL(j,i); 
cTH $,i)-TH (,1)-TL(j, i); 
end 
period4 = max([periodl,period2,period3]); を 最 大 值 
for i-period4:size (closeprice, 2) 
ACC1 (j, i)=sum (CTL (j,i-periodl41:i)) ./sum(cTH (j,i-period141:i)); 
ACC2 (j, i)=sum (CTL (j, i-period2+1:i)) ./sum(cTH (j, i-period2+1:i)); 
ACC3 (j, 1) =sum (cTL (j, i-period3+1:i)) ./sum(cTH (j, i-period3+1:i)); 
uos_com (j, i)=100* (ACC1 (j, i) *period2*period3+ACC2 (j, i) *periodl*period3+ACC3 (j, i) *periodl*period2) ./ (periodl*period2+periodl*period3+period2*period3) ; 


编写 实例 程序 如 下 : 


clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


warning off を 取消 警告 


feature jit off を 加 速 通道 

load('data000001.mat') 

openprice = data000001 (:,1)' s 开盘 价 

highprice = data000001(:,2)' $ 最 高 价 
j 


7 
n 

lowprice = data000001(:,3)'; 

closeprice = data000001 (: ,8) tz % 收盘 价 

periodi = 20; $ 计算 周期 ,为 整数 ，1<= periodl <= N 

period2 = 30; % 计算 周期 ,为 整数 ，1<= period2 <= N 

period3 = 50; % 计算 周期 ,为 整数 ，1<= period2 <= N 

uos = UOS (highprice, lowprice, closeprice, periodl, period2,period3) $ UOS 终 极 指标 

figure (2) 

subplot (121),plot (closeprice', V esty 

xlabel('t');ylabel( (收盘 价 ") 

subplot (122), plot (uos', ・ 

xlabel('t');ylabel( (root ida ' ) 


输出 图 形 如 图 4-22 所 示 。 
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422 大 数据 下 的 UOS 终 极 指标 


423 ”变异 平均 线 指标 


变异 平均 线 指标 VMA 与 SMA 移 动 平均 线 的 计算 方法 是 一 样 的 ， 区 别 在 于 SMA 移 动 平 均线 是 以 每 日 收盘 价 计 算 的 ， 而 变异 平均 线 指 标 VMA 则 是 用 每 日 的 股票 开盘 价 、 股 票 收盘 价 、 股 票 最 高 价 和 股票 最 
低 价 的 平均 值 计算 平均 线 。 变 异 平均 线 指标 VMA 是 对 原 有 股票 每 日 价格 指数 的 平滑 处 理 ， 变 异 平均 线 指标 VMA 曲 线 更 加 平滑 ， 能 够 在 短期 内 反映 股票 的 上 涨 和 下 跌 趋 势 。 


变异 平均 线 指标 VMA 趋 势 向 上 时 ， 则 视 为 买 入 信号 ， 用 户 可 以 介入 买 入 股票 ; 相反， 变异 平均 线 指标 VMA 下 降 时 ， 则 视 为 卖 出 信号 ， 用 户 可 以 考虑 卖 出 该 股票 。 


VMA 变 异 平 均线 指标 的 计算 公式 如 下 : 


highprice, + openprice, + lowprice, + closeprice, 


, period 
の p 


VMA, — SMA 


其 中 ，closeprice 为 收盘 价 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，openprice 为 开盘 价 ，period 为 计算 周期 ，period 均 为 整数 ， 并 且 小 于 等 于 样本 的 长 度 。SMA 为 简单 移动 平均 值 计算 函数 。 


变异 平均 线 指标 VMA 公 式 计算 的 中 文 含义 为 : VMA 等 于 (股票 最 高 价 + 股 票 开盘 价 + 股票 最 低 价 + 股 票 收盘 价 ) 的 平均 值 的 period 日 简单 移动 平均 SMA 值 。 


编写 相应 的 VMA 变 异 平均 线 指标 编程 如 下 : 


function [vma com] VMA (openprice, highprice, lowprice, closeprice, period) 

函数 功能 : VE 变异 平均 线 指标 

openprice,highprice, lowprice,closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
WA: 


openprice- 为 输入 的 开盘 价 

highprice- 为 输入 的 最 高 价 

lowprice- 为 输入 的 最 低 价 

closeprice- 为 输入 的 收盘 价 ,M x N 

period- 计 算 周 期 ,为 整数 ，1<= periodl <= N 
I 

vma_com:VMA 变 异 平均 线 指标 


% VMA 变 异 平均 线 指标 初始 化 


de e de de gp de op op oe op 


vma com = nan*ones (size (closeprice, 1), size (closeprice,2)); s 初始 化 
meanprice com = nan*ones (size (closeprice,1), size (closeprice,2)); % 初始 化 
% VMA 变 异 平均 线 指标 计算 
for j-1:size(closeprice,1) 
meanprice(j,:) = (highprice (j, : ) *openprice(j, : )+1o rice(j,:)*closeprice (j,:))/4; 
vma com(j,:) = SMA(meanprtce (j, :), period); RE 
end 


编写 实例 应 用 程序 如 下 : 


clc,clear, close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off る 加速 通 道 


load('data000001.mat"') 


openprice = data000001(:,1)'; 
highprice = data000001(:,2)'; 
lowprice = data000001(:,3)'; 区 
closeprice = data000001(:,4)'; 收盘 价 

period = 20;  $ 计算 周期 ,为 整数 ，1<= period <= N 

vma = VMA (openprice,highprice, lowprice,closeprice,period) % VMA 变 异 平均 线 指标 
figure (2) 

subplot (121) ,plot (closeprice','.-'); 

xlabel('t') ;ylabel(' 收 盘 价 ') 

subplot (122) ,plot (vma', '.-"); 

xlabel ('t');ylabel ("VMA 变 异 平均 线 指标 ') 


输出 图 形 如 


网 


4-23 所 示 。 
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图 4-23 ”大 数据 下 的 VMA 变 异 平均 线 指标 


第 5 草 ”量化 投资 反 趋向 指标 


本 章 主 要 围绕 量化 投资 反 趋向 指标 ， 进 行 幅度 涨 速 指标 ACCER、 动 态 买 卖 人 气 指标 ADTM、 布 林 极 限 指标 BB、 乖 离 率 指标 BIAS、 顺 势 指标 CCI、 市 场 能 量 指标 CYF、 异 同 离 差 寺 离 率 指标 DBCD、 多 空 
线 指标 DKX、 区 间 震 荡 线 指标 DPO、 分 水 岭 指 标 FSL、 随 机 指标 KDJ、! 威 廉 指标 LWR、 变 动 速率 指标 ROC、RSI 相 对 强 弱 指标 、 慢 速 随 机 指标 SKDJ、 摆 动 指 标 S1、 动 向 速度 比率 指标 SRDM、3 引 力 线 指标 
UDL、 威 廉 指 标 WR、 布 林 极限 宽度 指标 WIDTH 等 内 容 的 介绍 。 


5.1 ”幅度 涨 速 指标 


幅度 涨 速 指标 (ACCER) 就 是 在 periods 周 期 内 ， 进 行 斜率 求解 ， 斜 率 反 映 这 几 天 数据 的 涨 跌 速 率 。 具 体 的 表达 式 为 : 
k (closeprice, periods) 


ACCER = 
closeprice 


k (closeprice, periods) = polyfit(periods, closeprice, 1) 


polyfit 为 相应 的 拟 合 函数 ， 对 一 组 一 维 数据 进行 拟 合 操作 ， 将 得 到 最 优 的 拟 合 直线 方程 ， 则 这 个 直线 方程 的 斜率 就 是 。 


回归 方程 求解 ， 需 要 采用 最 小 二 乘法 的 思路 进行 逐步 求解 ， 具 体 的 求解 变量 如 下 : 


n 


Q => |» -(g+ が) 


i=l 


其 中 ， 代 入 每 一 个 x 对 应 的 每 一 个 yi 进行 计算 ， 则 可 求解 出 a 和 b 的 值 ， 则 该 方程 的 斜率 为 b。 


同样 ， 对 于 一 个 二 次 回归 方程 有 如 下 计算 方程 。 


zoo 2 X, y, - [a t bx, - cx; =0 
i=l 
ん ( closeprice, periods 
ACCER = k (closeprice, periods) 
closeprice 


k (closeprice, periods) = polyfit(periods, closeprice, 1) 


由 此 编写 具体 的 幅度 涨 速 指标 ACCER 的 函数 程序 如 下 : 


function ACCER com = ACCER(closeprice, periods) 
% 函数 功能 :ACCER- 幅 度 涨 速 指标 
$ Oseprice: :在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
i 
closeprice- e UHR 
peirods- 计 算 周 
ACCER- 幅 度 涨 速 指标 
作者 信息 : QQ 1174063087, Email: 1174063087@qq.com 
% 参考 本 代码 ， 请 引用 并 注 明 本 书信 息 


de dp oe de oe oe 


ACCER com=nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
for j-1:size (closeprice,1) & ] 个 类 的 收盘 价 
for i-l:periods: eo niso rice)-periods を 价格 序列 长 度 
kk = D; 以 合 系数 初始 化 
k = []; % 斜率 初始 化 
kk = polyfit([i: itperiods], closeprice(j, i:i+periods), 1); % 一 次 直线 拟 合 
k = kk(1); ES 
ACCER com(j,i: isperiods) = k./closeprice(j, i:i4periods); 
end 
end 


写实 例 调用 该 函数 如 下 : 


clc,clear,close all る 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off を 加 速 通道 


load('data000001.mat') 

closeprice = data000001(:,4)'; % 收盘 价 

ACCER com = ACCER(closeprice, periods); S ACCER- 幅 度 涨 速 指 标 
figure (2) 

subplot (121) ,plot (closeprice', ーー) 
xlabel('t') ;ylabel(' 收 盘 价 ') 

subplot (122) ,plot (ACCER í un t= t) 
xlabel('t');ylabel('ACCER- Niro ds) 


得 到 相应 的 ACCER- 幅 度 涨 速 指标 计算 图 形 如 图 5-1 所 示 。 
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图 5-1 大 数据 下 的 ACCER 幅 度 涨 速 指 标 


如 图 5-1 所 示 ，ACCER 幅 度 涨 速 指标 能 够 较 好 地 反映 涨 跌幅 度 。 当 股票 价格 异常 变化 时 ，ACCER 幅 度 涨 速 指标 震荡 幅度 将 增 大 ，ACCER 幅 度 涨 速 指标 提供 的 信息 量 也 就 增 大 。 


5.2 动态 买卖 人 气 指标 


动态 买卖 人 气 指标 ADTM 在 +1 之 间 变 化 ， 一 般 认 为 动态 买卖 人 气 指标 ADTM 小 于 负 0.5， 则 视 为 买 入 信号 ， 此 时 投资 者 可 以 买 入 该 股票 ; 相反 ， 如 果 动态 买卖 人 气 指标 ADTM 大 于 0.5， 则 认为 投资 者 应 
该 注意 规避 风险 ， 谨 慎 买 入 股票 ， 如 果 手 中 持 股 ， 则 应 该 着 高 卖 出 。 


具体 的 动态 买卖 人 气 指标 ADTM 指 标 计算 如 下 。 


(1) 如 果 今日 股票 开盘 价 小 于 等 于 昨日 开盘 价 ， 那 么 将 DTM 置 0， 反 之 ， 则 DTM 为 今日 股票 价格 的 最 大 值 -今日 股票 开盘 价 与 今日 股票 开盘 价 与 昨日 股票 开盘 价 的 差 值 的 最 大 值 。 


可 表示 为 : 


DTM = 0, openprice, < openprice, , 
max(highprice- open price, openprice, — openprice, ,), openprice, > openprice, , 


其 中 openpricet 为 今日 股票 开盘 价 ，openpricet-1 为 昨日 股票 开盘 价 。 


(2) 如 果 今日 股票 开盘 价 大 于 等 于 昨日 开盘 价 ， 那 么 将 DBM 置 0; 反之 ， 则 DTM 为 今日 股票 价格 开盘 价 -今日 股票 最 低 价 与 今日 股票 开盘 价 与 昨日 股票 开盘 价 的 差 值 的 最 大 值 。 可 表示 为 : 


° 


. > .` 
openprice, = openprice, , 
DBM = f f f f zr mE 

max(open price— /owprice, openprice, — openprice, ,), openprice, < openprice, , 


(3) 在 投资 者 设 定 的 交易 周期 内 ， 进 行 DTM 值 的 求 和 与 DBM 值 的 求 和 ， 具 体 如 下 : 


SDTM = sum( DTM, periods 
SDBM = sum( DBM, periods 


其 中 ，periods 为 计算 周期 ，periods 为 整数 ， 并 且 小 于 样本 长 度 。 


(4) 根据 SDTM 和 SDBM 值 ， 进 行动 态 买卖 人 气 指标 ADTM 了 求解， 具体 如 下 : 


SDTM » SDBM 

SDTM 
ADTM - 0, SDTM = SDBM 
SDIM=3DBM SDTM < SDBM 


SDBM 


动态 买卖 人 气 指标 ADTM 的 求解 ， 有 两 层 判断 条 件 ， 因 此 投资 者 在 计算 动态 买卖 人 气 指标 ADTM 时 ， 应 该 注意 判断 条 件 的 引入 。 


由 此 编写 具体 的 动态 买卖 人 气 指标 ADTM 的 函数 程序 如 下 : 


function ADTM com = ADTM(openprice, highprice, lowprice, closeprice, periods) 
函数 功能 ， xU E A UBERADTM Ë 
人 即 为 行 向 量 
j H 


% 

% 

° openprice- 为 输入 的 开盘 价 
E highprice- 为 输入 的 最 高 价 
る lowprice- 为 输入 的 最 低 价 
š 

š 


closeprice- 为 输入 的 收盘 价 
peirods- 计 算 周期 


态 买 卖 人 气 指标 ADTM 
QQ 1174063087, Email: 11740630878qq.com 
参考 本 代码 ， 请 引用 并 注 明 本 书信 息 


ADTM com-nan*ones (size (closeprice, 1),size (closeprice,2)); % 初始 化 
DTM com=nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
DBM com-nan*ones (size (closeprice,1),size(closeprice,2)); を 初始 化 


SDTM com=nan*ones (size (closeprice, 1) , size (closeprice,2)) 
SDBM com=nan*ones (size (closeprice,1),size(closeprice,2)) 


Jj 个 类 的 收盘 价 
价格 序列 长 度 


; Š 
; % 初始 化 


for j=1:size (closeprice, 1) 
for i-2:length (closeprice) 
& DTM 计 算 
if openprice(j,i)«-openprice(j,i-1) 
DTM com(j,i) = 0; 
else 
DTM com(j,i) = max( highprice(j,i)-openprice(j,i),openprice (j,i)-openprice(j,i-1) ); 
end 
& DBM 计 算 
if openprice(j,i)>=openprice(j,i-1) 
DBM com(j,i) = 0; 


t 
E 


else 
DBM com(j,i) - max( openprice(j,i)-lowprice(j,i),openprice (j,i)-openprice(j,i-1) ); 
end 
end 
end 
for j-1:size (closeprice, 1) を 37288 Ht r 
for i-l:length (closeprice)-periods % 价格 序列 长 度 
SDTM com(j,i) = sum( DTM com(j,i:it*periods) ) 7 
SDBM com(j,i) = sum( DBM com(j,i:i*periods) ); 
end 
end 
for j-1:size (closeprice, 1) gj 个 类 的 收盘 价 
for i-1:length (closeprice) を 价格 序列 长 度 
if SDTM com(j,i)>SDBM com(j,i) 
ADTM com(j,i) = (SDTM com(j,i)-SDBM com(j,i))./SDTM com(j,i); 
elseif SDIM com(j,i) == SDBM com(j,i) 
ADTM com(j,i) = 0; 
elseif SDTM com(j,i) « SDBM com(j,i) 
ADTM com(j,i) = (SDTM com(j,i)-SDBM com(j,i))./SDBM com(j,i); 
end 
end 
end 
调用 该 函数 如 下 : 
clc,clear,close all る 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 
feature jit off % 加 速 通道 


load('data000001.mat') 

openprice = data000001(:,1)'; & 开盘 价 
highprice = data000001(:,2)'; $ 最 高 价 
lowprice = data000001(:,3)'; & 最 低 价 

closeprice = data000001(:,4)'; % 收盘 价 

ADTM com = ADIM(openprice,highprice,lowprice,closeprice,periods); % 动态 买卖 人 气 指标 RDTM 
figure (2) 

subplot (121) , plot (closeprice','.-'); 

xlabel.('t');ylabel ("收盘 价 ') 

subplot (122) ,plot (ADTM com','.-"); 

xlabel ('t') ;ylabel (' 动 乱 买 卖 气 指标 ADTM' ) 


得 到 如 图 5-2 所 示 结 果 。 
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图 5-2 大 数据 下 的 动态 买卖 人 气 指标 ADTM 


如 图 5-2 所 示 ， 动 态 买卖 人 气 指标 ADTM 主 要 分 布 在 -1 ~ 1 之 间 ， 并 且 动 态 买卖 人 气 指标 ADTM 在 -0.5 附 近 是 买 入 信号 ， 在 0.5 附 近 是 卖 出 信号 。 


5.3 布 林 极限 指标 


布 林 极限 指标 BB 是 根据 布 林 极 限 来 计算 的 ， 布 林 极限 通过 均值 与 方差 的 加 权 和 ， 分 别 得 到 布 林 指标 的 上 限 55” 、 下 限 63” ， 然 后 根据 布 林 上 下 指标 极限 计算 布 林 极 限 指标 。 一 般 情况 下 ， 上 限 
BE” 下限 53” 之 间 的 差 值 ， 反 映 了 股票 价格 走势 的 震荡 程度 ， 上 限 PB” 、 下 限 63” 差 值 越 大 ， 则 股票 价格 走势 震荡 越 大 ， 相 应 地 ， 上 限 PUT 、 下 限 63” 差 值 越 小 ， 则 股票 价格 走势 震荡 越 小 。 


布 林 极 限 指标 BB 位 于 0 ~ 1 之 间 ， 当 股票 价格 处 于 股票 价格 高 位 段 时 ， 而 布 林 极限 指标 BB 未 能 同步 向 上 ， 甚 至 布 林 极限 BB 指标 有 向 下 的 趋势 ， 则 表示 股票 价格 极 有 可 能 出 现下 跌 趋 势 ， 建 议 投资 者 应 该 
首 高 卖 出 手中 的 股票 ， 反 之 ， 当 股票 价格 处 于 股票 低位 段 时 ， 而 布 林 极 限 指标 并 没有 同步 走低 ， 甚 至 布 林 极 限 BB 指标 有 向 上 的 趋势 ， 则 表示 股票 价格 极 有 可 能 出 现 上 涨 趋势 ， 建 议 投资 者 应 该 着 低 买 入 一 定 
数量 的 股票 。 


具体 的 布 林 极限 指标 BB 计算 如 下 。 


(1) 首先 计算 收盘 价 的 periods 周 期 均值 ， 具 体 如 下 。 
MID, = SMA (closeprice,, periods) 


其 中 ，closepricet 为 股票 今日 收盘 价 ，periods 为 计算 周期 ，periods 为 整数 ， 且 小 于 样本 长 度 。 


(2) 计算 收盘 价 的 periods 周 期 方差 ， 具 体 如 下 : 


STD, = std (closeprice,, periods) 


(3) 计算 布 林 线 上 限 ， 具 体 如 下 : 


BB?" = MID, + w- STD, 


其 中 ，w 是 大 于 1 的 整数 。 


(4) 计算 布 林 线 下 限 ， 具 体 如 下 : 


BB™ = MID, — w- STD, 


其 中 ，w 和 (3) 中 的 w 含 义 相同 。 


(5) 计算 布 林 极限 指标 BB， 具 体 如 下 : 
closeprice, — BB™ 
— 7 7 
BB, ー max min 
BB," — BB, 


由 表达 式 可 知 ， 布 林 极 限 指标 BB 是 股票 收盘 价 的 布 林 上 下 限 的 归 一 化 操作 ， 因 此 布 林 极 限 指标 BB 位 于 0 ~ 1 之 间 。 由 此 编写 函数 代码 如 下 。 


SMAEBRÉRINRBRITT : 


function sma com = SMA (price, period) 
$ 函数 功能 : SMA -简单 移动 平均 值 
zd 


$ price- 为 输入 的 数据 矩阵 


る Period- 为 周期 ，>= 1 
% 输出 ; 
5 sma com: SMA -简单 移动 平均 值 
sma com-nan*ones (size(price,1), size (price,2)); % 初始 化 
if Iength (price) >period を 每 一 行 变量 的 长 度 是 是 否 大 于 period 
for j=1:size (price, 1) % 行 ， 每 一 行 一 个 时 间 序 列 妆 oum 
for i-period:length (price) $ 从 period 周 期 开始 计 
sma com(j,i)-mean (price (j, i-period+1:i)); % i 均值 
end 
end 
end 


相应 的 布 林 极限 指标 计算 如 下 : 


function BB com = BB(closeprice,periods,w) 
函数 功能 ， 厕 林 极 限 指标 BB 
$ M EE VERIS at EBEN e e. 即 为 行 向 量 
zd 
closeprice- 为 输入 的 收盘 价 
peirods- 计 算 周 期 
"" w- 输 入 权 值 
n: 


“ 布 林 极 限 指标 BB 


de dp de de oe 


3 


MID com=nan*ones (size (closeprice,1 
STD comenan*ones (size (closeprice,1 
max Com=nan*ones (size (closeprice,1 


,Size(closeprice,2 
,Size(closeprice,2 
( 


) % 初始 化 
) ) E 

,8Size(closeprice,2)); 5 初始 化 
) ) 


) 
) 
) 


min com=nan*ones (size (closeprice, 1) , size (closeprice,2 % 初始 化 
BB com-nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初 始 化 
MID com= SMA (closeprice, periods); % MID 计 算 ， 移动 平均 值 
for j=1: size (closeprice,1l) $j 个 类 的 收盘 从 
for i-1:length (closeprice) -periods を 价格 序列 长 度 
STD com(j,i) = std(closeprice (j,i:itperiods)); 
max com(j,i) = MID com(j,i) + w*STD com(j,i); $ 布 林 极 限 上 限 
min com(j,i) = MID com(j,i) - w*STD Er. る 布 林 概 限 下限 
BB com(j,i) = (closeprice(j,i)-min com(j,i))./(max com(j,i)-min com (j,i)); 
end 


进行 布 林 极限 指标 计算 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off を 加 速 通道 


load('data000001.mat') 
openprice = data000001(:,1)'; 
highprice = data000001(:,2)'; 
lowprice = data000001(:,3)'; % 
closeprice = data000001(:,4)'; % 收盘 价 

BB com = BB(closeprice,periods,w); % 布 林 极 限 指标 BB 
figure (2) 

subplot (121),plot (closeprice', .-'); 
xlabel('t');ylabel('WOütffr') 

subplot (122) , plot (BB com','.-'); 

xlabel ('t') ;ylabel (' 布 林 极 限 指标 BB' ) 


得 到 如 图 5-3 所 示 结 果 。 
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如 图 5-3 所 示 ， 布 林 极 限 BB 指 标 是 分 布 在 0 ~ 1 之 间 的 正 数 ， 该 指标 变化 情况 和 动态 买卖 人 气 指标 ADTM 波 动情 况 近 似 。 


时 提供 有 力 的 参考 依据 。 


5.4， 乖 离 率 指标 


100 200 300 400 500 


5-3 ”大 数据 下 的 布 林 极限 BB 指标 计算 


复杂 多 变 的 波动 工 况 人 眼 难 辨 ， 然 而 可 借助 软件 进行 买卖 信号 分 析 ， 为 投资 者 实 


徘 离 率 指标 BIAS 在 +0.1 区 间 震 荡 ， 矢 离 率 指标 BIAS 和 幅度 涨 速 指 标 ACCER 曲 线 走势 近 平一 致 ， 菲 离 率 指标 BIAS 是 衡量 市 场 股价 的 偏离 均值 程度 的 指标 ， 而 幅度 涨 速 指 标 ACCER 曲 线 则 是 求解 收盘 价 的 


和 斜率， 在 表达 上 乖 离 率 指标 BIAs 和 幅度 涨 速 指标 ACCER 曲 线 两 者 有 异曲同工 之 妙 。 秒 离 率 指标 BIAs 描 绘 股票 价格 偏离 均线 的 幅度 ， 当 乖 离 率 指标 BIAs 指 标 偏离 均线 为 正 向 回落 时 ， 易 出 现 股票 大 跌 的 工 


此 合理 的 定位 乖 离 率 指标 BIAS 值 ， 对 于 投资 者 是 及 其 重要 的 参考 指标 。 


况 ， 相 反 ， 如 果 乖 离 率 指标 BIAS 指 标 偏离 均线 为 负 向 调 档 时 ， 易 出 现 股票 上 涨 的 工 况 ， 此 时 投资 者 可 以 适当 逢 低 买 进 。 因 


具体 的 乖 离 率 指标 BIAS 计 算 如 下 : 


首先 计算 收盘 价 的 periods 周 期 均值 ， 具 体 如 下 : 


MA, = SMA(closeprice,, periods) 


(1 


二 


其 中 ，periods 为 整数 ， 其 大 小 小 于 样本 长 度 。 


(2) 计算 收盘 价 与 MA 的 差 值 ， 具 体 如 下 : 


CMA, = closeprice, — MA 
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(3) 计算 乖 离 率 指标 BIAS 值 ， 具 体 如 下 : 


closeprice, — MA 


BIAS, = ^ x 10096 


乖 离 率 指标 BIAS 计 算 函 数 如 下 : 


function BIAS com = BIAS(closeprice, periods) 
% 函数 功能 : GEBDAUBERBIAS u 
$ closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 


closeprice- 为 输入 的 收盘 价 
Peirods- 计 算 周期 


输出 : 
乖 离 率 指 标 BIRS 

MA com-nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 
CMA com-nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; る 初始 化 
BTAS com-nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初始 化 
MA com- SMA(closeprice, periods); $ MA 计算 ， 移 动 平均 值 
CMA com = closeprice - MA com; $m N 
BIAS com = CMA com./MA com; s 乖 离 率 指标 BIRS 
相应 的 SMA 程 序 如 下 : 


function sma com = SMA (price,period) 

E SMA -简单 移动 平均 值 
price- 为 输入 的 数据 矩阵 

Period- 为 周期 ，>= 1 


sma com: SMA -简单 移动 平均 值 


输 


de de de de op de 


sma com-nan*ones (size (price, 1) , size (price, 2) ) ; .名 初始 化 
if length (price) >period % 每 一 行 变量 的 长 度 是 否 大 于 Period 
for j=1:size (price, 1) を 行 ， 每 一 行 一 个 时 间 序 列 数 据 
for i-period:length (price) & 从 period 周 期 开始 计算 
sma com(j,i)-mean (price (j, i-period+1:i)); る 求 平均 值 
end 
end 
end 
进行 乖 离 率 指标 BIAS 计 算 如 下 : 
clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off を 加 速 通道 
$ lowprice = [2212.35,2214.59,2228.87,2242.98,2240.25,2228.11,2211.03, 2203.29,2230.28,2227.34]; % 最 低 价 
$ highprice = [2185.18,2186.48,2200.53,2226.4,2221.14,2183.4,2183.25, 2184.36,2190.39,2204.24]; % 最 高 价 
Closeprice = [2211.77,2190.93,2228.15,2237.77,2233.41,2193.07,2188.54, 2193.78,2229.24,2210.65]; % 收盘 价 
$ openprice =[2191.39 2214.41 2201.41 2232.22 2237.93 2228.11 2201.71 2188.71 2198.11 2227.34] ; を 开盘 价 
periods = 5; る 计算 周期 ,为 整数 ，1<= period <= N 
w = 5; を 计算 权 值 u É 
BIAS com = BIAS(closeprice, periods) & 乖 离 率 指标 BIRAS 
figure (1) 
subplot (121) , plot (closeprice', '.-')7;xlabel('t')7YyLabel(" 收 盘 价 7) 
subplot(122),plot(BIAS com','.-'); xlabel('t');ylabel('a3É B AEJRERBIAS') 
load('data000001.mat"') 
openprice = data000001(:,1)'; $ 开盘 价 
highprice = data000001(:,2)'; s 最 高 价 
lowprice = data000001(:,3)'; s 最 低 价 
closeprice = data000001(:,4)'; る 收盘 价 
BIAS com = BIAS (closeprice, periods) ; % SEBPSURBERBIAS 
figure (2) 
subplot (121) , plot (closeprice','.-'); 
xlabel('t');ylabel ("Weftfft') 
subplot(122),plot(BIAS com','.-'); 
xlabel('t');ylabel (' HA RIKPRBIAS' 
得 到 如 图 5-4 所 示 结果 。 
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如 图 5-4 所 示 ， 大 数据 下 的 乖 离 率 指 标 BAS 计 算 能 够 在 大 跌 来 临时 ， 给 出 距离 震荡 信号 ， 因 此 投资 者 通过 乖 离 率 指标 BIAS 计 算 ， 能 够 获取 有 


5.5 “异同 离 差 玫 离 率 指标 


同 离 差 乖 离 率 指标 DBCD 下 降 ， 则 表明 股票 价格 可 能 短期 有 回调 可 能 ， 其 中 异同 离 差 乖 离 率 指标 DBCD 上 涨 下 跌 的 幅 
E 离 率 指标 BIAS 差 值 进行 平滑 处 理 ， 因 此 异同 离 差 钱 离 率 指标 DBCD 计 算 的 结果 是 曲线 更 加 平滑 ， 基 本 上 去 除了 无 


对 


5-4 大 数据 下 的 竺 离 率 指标 BIAS 计 算 


异同 离 差 乖 离 率 指标 DBCD 用 法 与 乖 离 率 指标 BIAs 用 法 相当 。 异 同 离 差 乖 离 率 指标 DBCD 在 +0.1 左 右 震荡 ， 异 同 离 差 乖 离 率 指标 DBCD 向 上 震荡 ， 则 表明 股票 价格 在 短期 内 很 大 可 能 会 上 涨 ) 相反 ， 异 


的 信号 成 分 ， 保 证 了 异同 离 差 


度 和 股票 价格 上 涨 下 跌 的 幅度 相关 。 异 同 离 差 乖 离 率 指标 DBCD 采 用 指数 移动 平均 FEDMA 


E 离 率 指标 DBCD 的 可 靠 性 。 


异同 离 差 乖 离 率 指标 DBCD 先 计算 乖 离 率 指标 BIAS， 然 后 对 BIAS 信 号 进行 指数 移动 平均 EDMA 操 作 ， 具 体 的 流程 如 下 。 


(1) 计算 乖 离 率 指标 BIAsS。 


(2) 计算 乖 离 率 指标 BIAS 的 差 值 DB， 具 体 如 下 : 


DB — BIAS, — BIAS 


t— periods 2 


其 中 ，periods2 是 选择 的 计算 周期 。 


(3) 计算 DB 的 指数 移动 平均 值 ， 即 为 DBCD 值 ， 具 体 如 下 : 
DBCD = EDMA(DB,, period3, w) 


其 中 period3 是 整数 ， 其 数值 小 于 样本 长 度 ; w 也 是 整数 ，w 介 于 1 到 period3 之 间 。 


其 中 ，periods3 是 选择 的 计算 周期 ，w 是 计算 权 值 ， 为 整数 。 


体 的 指数 移动 平均 EDMA 操 作 函 数 程序 如 下 : 


function edma com = EDMA (price, period, weight) 
$ PUN. EDMA -指数 移动 平均 值 

% WA: 

$ price-Jyf A BJ 3 8 kE De 

る Period- 为 周期 ，>= 1, 整数 

を weight: BUfi, 1«-weight«-period, 整数 


输出 : 
edma com: EDMA -指数 移动 平均 值 
edma com = ' nan*ones (size (price, 1), size ( orice, 2) ) $ 初始 化 
$ edma | com (:, 1)-price(:,1); 5 初始 
for j=l:size (price, 1) を f, 每 一 行 一 个 时 间 序 列 数据 
length (price) る 从 t=2 开 始 计算 
if ~isnan( (weight/period) *price(j,i) ) && isnan( edma com(j,i-1) 
edma com(j,i)- (weight/period) Eu ); $ EDMA eR By at 
elseif isnan( (weight/period) ES ) && isnan( edma com (j,i-1) ) 
edma com(j,i) = nan; $ EDMA TELE 
elseif isnan( (wei ght/period) *price(j,i ) ) && ^isnan( edma com (j,i-1) ) 
edma com(j,i)-((period-weight) /period)*edma com(j,i-1); $ EDMA -指数 移动 平均 值 
elseif -isnan( (weight/period)*price(j,i) ) && <isnan ( edma com (j,i-1) ) 
edma com(j,i)-(weight/period)*price(j,i) + ((period-weight)/ period)*edma com(j,i-1); 
end 
end 
end 


る EDMA -指数 移动 平均 值 


异同 离 差 老 离 率 指标 DBCD 函 数 如 下 : 


function DBCD com = DBCD (closeprice, periods1l, periods2, per1ods3, w) 
PARE. SRIDBLXESEBUETRERDBCD B 
n PSU EE E 即 为 行 向 量 
A: 
closeprice- 为 输入 的 收盘 价 
Peirods1、peirods2、Ppeirods3- 计 算 周期 
w: 权 值 ，1<=w<=period, 整数 


de de de op oe de op sp 


输出 : HE * 
5E [EI 8 263 BS HERDBCD 

BIAS com-nan*ones (size (closeprice, 1), size (closeprice,2)); る 初始 化 
DB com-nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初始 化 
DBCD_com=nan*ones (size (closeprice,1),size(closeprice,2)); を 初始 化 
BIAS com = BIAS (closeprice, periods1); $ 乖 离 率 指 标 BIRS 
for j-1:size(closeprice,1) & jj 个 类 的 收盘 价 

for i=1:size(closeprice,2)-periods2 を 价格 序列 长 度 

DB com(j,itperiods2) = BTAS com(], 1+per1ods2) -BTAS com(j,i); 

end 
end 
DBCD com-EDMA (DB com, periods3,w); % FEAA 338 bnRDBCD 


Va FERIIS ASTE ed ER D BCD BREST F : 


clc,clear,close all 理工 作 区 、 关闭 图 形 窗口 
warning off 


feature jit off 


load('data000001.mat"') 


closeprice = data000001(:,4)'; % 收盘 价 2 
DBCD com = DBCD(closeprice,periodsl,periods2,periods3,w); % 异同 离 差 乖 离 率 指 标 DBCD 
figure (2) 


subplot (121),plot (closeprice', Vues oc 
xlabel ('t') ;ylabel(' 收 盘 价 ') 

subplot (122), plot (DBCD pom Poets. 
xlabel('t');ylabel( C RERTROS R Bsd pEpacp' ) 


得 到 如 图 5-5 所 示 结 果 。 
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计算 更 加 平滑 。 
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5.6 ”顺势 指标 
顺势 指标 CCI 围 绕 0 轴 上 下 震荡 ， 当 顺势 指标 CCI 值 在 0 ~ 100 范 围 内 的 时 候 ， 属 了 


时 投资 者 可 考虑 买 进 股票 。 


顺势 指标 CCI 计 算 如 下 。 


市 场 股票 价格 的 正常 行情 状态 ， 然 而 当 顺 势 指标 CCI 大 于 100 时 ， 市 场 行情 将 突破 正常 工 况 行情 ， 此 时 股票 市 场 上 涨 势头 
强劲 ， 投 资 者 可 以 考虑 买 入 股票 ， 当 顺势 指标 CCI 值 小 于 100 时 ， 则 投资 者 可 考虑 着 高 卖 出 该 股票 。 当 顺势 指标 CCI 值 为 负 值 时 ， 此 行情 转变 为 空头 市 场 行情 ， 当 CCI 从 小 于 -100 进 入 大 于 -100 状 态 下 时 ,此 


(1) 计算 股票 的 每 天 股票 最 高 价 、 每 天 股票 最 低 价 、 每 天 的 股票 收盘 价 的 平均 值 ， 具 体 如 下 : 


HLC, = 
3 


(2) 计算 HLC 的 平均 绝对 离 差 值 ， 具 体 如 下 : 


highprice, + lowprice, + closeprice, 


AVE, = AVEDEV (HLC,, periods) 


FUBAVEDEBIBISSEJSHEXT ESAE EE PPB k, 


(3) 计算 HLC 的 移动 平均 值 ， 具 体 如 下 : 


HLCA, = SMA( HLC,, periods) 


(4) 计算 顺势 指标 CCI 值 ， 具 体 如 下 : 


CCI 


t 


0.015AVE, 


相应 的 平均 绝对 离 差 值 函数 程序 如 下 : 


_ HLC, - HLCA, 


function avedev com-AVEDEV (closePrice, period) 
函数 功能 :AVEDEV- 平 均 绝对 离 差 
ee :在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
WA: 
closePrice- 为 输入 的 数据 矩阵 
Period- 为 计算 的 周期 数 
输出 : 
avedev com: 平均 绝对 离 差 
avedev com-nan*ones (size (closePrice,1),size(closePrice,2)); 
for j-1:size (closePrice,1) $ dT 
for i-period:length (closePrice) 


P de de de oe op op 


% 列 


s 初始 化 


avedev com(j,i) = sum(abs (closePrice(j,i-period*1:i)-mean(closePrice (j,i-period4l:i))))/period; 


end 
end 


顺势 指标 CCI 值 计算 程序 如 下 : 


function CCI com = CCI (highprice, lowprice,closeprice,periods) 
函数 功能 : 顺 难 指标 CCT — i 
S s Ms 即 为 行 向 量 

UN: 


highprice- 为 输入 的 最 高 价 

lowprice- 为 输入 的 最 低 价 

closeprice- 为 输入 的 收盘 价 
Peirods- 计 算 周期 


de de de de de de op op op 


顺势 指标 ccT 


HLC_com=nanxones (size (closeprice, 1) , size (closeprice,2)); % 初始 化 
AVE com-nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; % 初始 化 
HLCA com=nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
CCI com-nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 
HLC com= (highprice*lowprice4closeprice)/3; を 平均 值 

HLCA com= SMA(HLC com, periods) ; % MA 计算 ， 移 动 平均 值 

AVE com = AVEDEV(HTC com,periods); を 平均 绝对 离 差 

CCI com = (HLC com-HLCA com)./0.015./AVE com; % 顺势 指标 CCI 


计算 顺势 指标 CCI 值 ， 具 体 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off s 加速 通 道 


load('data000001.mat') 
openprice - data000001(:,1)'; を 价 
highprice = data000001(:,2)'; る 最 高 价 
lowprice = data000001(:,3)'; を 
closeprice = data000001(:,4)'; s 收盘 价 


CCI_com = BIAS (closeprice, periods); $ 乖 离 率 指 标 BIRAS 
figure (2) 
subplot (121),plot (closeprice','.-'); 


xlabel (' も ") ;ylabel(' 收 盘 价 ') 
subplot (122) ,plot (CCI com','.-'); 
xlabel ('t') ;ylabel (' 顺 势 指 标 CCI') 


得 到 如 图 5-6 所 示 结 果 。 
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图 5-6 ”大 数据 下 的 顺势 指标 CCI 计 算 


如 图 5-6 所 示 ， 大 数据 下 的 顺势 指标 CCI 计 算 在 上 涨 过 程 中 ， 将 一 直 处 于 100 附 近 震 荡 ， 当 股票 价格 下 跌 时 ， 则 CC 指标 将 在 -200 ~ 200 之 间 震 荡 ， 因 此 投资 者 通过 顺势 指标 CCI 计 算 ， 能 够 获取 有 用 的 信 


5.7 市 场 能 量 指标 


市 场 能 量 指标 CYF 应 运 而 生 。 


市 场 能 量 指标 CYF 计 算 如 下 。 


(1) 对 换 手 率 序列 进行 指数 平滑 移动 平均 操作 ， 具 体 如 下 : 


HYF, = EMA(HuanShouLi,, periods) 


市 场 能 量 指标 CYF 是 对 投资 者 的 股票 热情 度 进行 量化 的 一 个 有 效 指标 ， 市 场 能 量 指标 CYF 介 于 0 ~ 1 之 间 ， 一 般 采 用 百分比 形式 显示 。 当 二 
该 股票 没什么 人 气 ; 相反 当 市 场 能 量 指标 CYF 值 越 高 时 ， 关 注 该 股票 的 人 也 就 越 多 ， 相 应 地 投资 者 也 会 看 多 该 股票 。 


市 场 能 量 指标 CYF 顾 名 思 义 就 是 根据 市 场 中 投资 者 对 某 个 股票 的 看 好 程度 评价 的 一 个 量化 指标 。 例 如 ， 股 票 投 资 者 看 好 某 个 股票 ， 这 个 工 况 是 个 定性 问题 ， 因 此 有 必要 对 这 种 工 况 进行 量化 处 理 ， 由 此 


和 场 能 量 指标 CYF 越 小 时 ， 说 明 短 期 很 多 投资 者 不 看 好 该 股票 ， 


Hp, EMABIIUSTESICEIBTERI EISE, HuanShouli 訪 換 手 率 序列 。 


(2) 由 HYF 计 算 市 场 能 量 指标 CYF 值 ， 具 体 如 下 : 


CYF, -100- = 


相应 的 指数 平滑 序列 计算 函数 程序 如 下 : 


1+ HYF, 


function ema com = EMA (price,period) 
% 函数 功能 :EMA- 指 数 平滑 移动 平均 值 
% 输入 : 
に Price- 为 输入 的 数据 矩阵 
° Period- 为 周期 ，>= 1 
る 输出 : 
$ ema com: EMA- 指 数 平滑 移动 平均 值 
ema com(:,1)-price(:,1); 
for i-2:length (price) 
ema com(:,i)-2*price(:,i)./(period*l)*ema com(:,i-1)* (peri: 
end 


od-1)/ (pertod+1) 


计算 CYF 市 场 能 量 值 ， 具 体 如 下 : 


function CYF com = CYF (huanshouli,periods) 
% RADNE: 市 场 能 量 指标 CYP ú 

る huanshouli :在 列 向 量 上 随时 间 变化 ， 即 为 行 向 量 
% 输入 : 


$ huanshouli- 换 手 率 序列 


% peirods- 计 算 周期 

% 输出 ; 

% 市 场 能 量 指标 CYF 

HYF com-nan*ones (size (huanshouli, 1), size (huanshouli,2)); る 初始 化 
CYF com-nan*ones (size (huanshouli,1),size (huanshouli,2)); 2; 初始 化 
HYF com = EMA (huanshouli, periods); る 指数 平滑 移动 平均 值 

CYF com = 100-100./(1*HYF com); % 市 场 能 量 指标 CYF 
计算 CYF 市 场 能 量 值 ， 具 体 如 下 : 

clc,clear,close all を 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 

feature jit off s 加 速 通道 


load('data000001.mat') 

HuanShouli = rand(1,500); を 換 手 率 

CYF com = CYF (HuanShouLi, periods); s 市 场 能 量 指标 CYF 

figure (2) 

subplot (121) , plot (HuanShouLi', ' .~-') ;xlabel ('t') ;ylabel(' 收 盘 价 ' 


) 


subplot (122) ,plot (CYF_com', '.-'); xlabel('t');ylabel(' 市 场 能 量 指标 CYF') 


得 到 如 图 5-7 所 示 结 果 。 


换 手 率 
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市 场 能 量 指 标 CYF 


400 500 0 100 200 300 


图 5-7 大 数据 下 的 市 场 能 量 指 标 CYF 计 算 


400 500 


如 图 5-7 所 示 ， 大 数据 下 的 市 场 能 量 指标 CYF 计 算 ， 当 换 手 率 增 大 时 ， 市 场 能 量 指标 CYF 相 应 的 会 同步 增 大 ， 相 应 的 股票 受到 更 多 投资 者 青睐 ， 当 换 手 率 降低 时 ， 市 场 能 量 指标 CYF 也 降低 ， 股 票 受 关注 


度 也 就 降低 。 


5.8 ”多 空 线 指标 


多 空 线 指标 DKX 具 有 平滑 曲线 的 作用 ， 并 且 其 变化 趋势 和 股票 的 实际 走势 是 相同 的 ， 足 够 反映 股票 的 变化 情况 ， 平 滑 趋势 更 加 明显 。 多 空 线 指标 DKX 趋 势 向 上 走时 ， 此 时 投资 者 可 以 买 入 该 股票 ， 该 股 
票 上 涨 可 能 性 较 大 ; 当 多 空 线 指标 DKX 趋 势 向 下 时 ， 此 时 股票 短期 内 可 能 有 回调 可 能 性 ， 此 时 投资 者 可 以 考虑 卖 出 手中 股票 。 多 空 线 指标 DKX 可 以 作为 中 短期 预测 指标 。 


多 空 线 指标 DKX 计 算 如 下 。 


(1) 对 股票 的 开盘 价 、 收 盘 价 、 最 高 价 以 及 最 低 价 进行 加 权 计算 ， 具 体 如 下 : 


. 3closeprice, + lowprice, + openprice, + highprice, 


MKX, 
6 


其 中 ，closeprice 为 收盘 价 ，lowprice 为 最 低 价 ，highprice 为 最 高 价 ，openprice 为 开盘 价 。 


(2) 由 计算 出 来 的 MKX 值 计算 DKX， 具 体 如 下 : 


20MKX, +19MKX, , -18MKX, , -17 MKX, , 
16MKX , - 15MKX, . - 14MKX, , - 13MKX, , 
12MKX, , +11MKX, , -10MKX, ,, +9MKX, + 
8MKX, ,, - 7 MKX, ,, Y 6MKX, ,, c 5MKX, ,, 
4MKX, ,, * 3MKX, ,, - 2MKX, ,, + MKX 。 


DKX, 
210 


由 此 编写 相应 的 多 空 线 指标 DKX 程 序 如 下 : 


function DKX com = DKX(openprice,highprice, lowprice, closeprice) 
% 函数 功能 : 多 空 线 指标 DKX 

る — S A 即 为 行 向 量 

% 输入: 

る openprice- 为 输入 的 开盘 价 
$ highprice- NT 


lowprice- 为 输入 的 最 
closeprice- PVT 


多 空 线 指标 DKx 


初始 化 
初始 化 


MKX com-nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; 
DKX com-nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; 


de oe 


MKX com = (3*closeprice*lowpricetopenpricethighprice) ./6; 


for j-1:size (closeprice,1) & j1 个 类 的 收盘 价 
for i-1:length (closeprice)-19 $ 价格 序列 长 度 
DKX com(j,i*19) = (20*MKX com(j,i*19) + 19*MKX com(j,i+18)+http://www.hzcourse.com/resource/readBook?path=/openresources/teach_ebook/uncompressed/16446/OEBPS/Text/. 
18*MKX com (j,i*17)4 17*MKX com (j,i+16)+ 1 6*MKX com (j,i+15)+ http://www.hzcourse.com/resource/readBook?path-, /openresources/teach « ebook/uncompressed/1644 6/OEBPS/Text/ x 
15*MKX com (j,i+14)+ 14*MKX_com (j,i*13)4 13*MKX com (j,i+12)+ http://www.hzcourse.com/resource/readBook?path-, /openresources/teach ebook/uncompressed/1644 6/OEBPS/Text/. 
12*MKX com(], 1+11)+ 11*MKX com(j,i*10)- 10*MKX com(],1+9)+ http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/.. 
9*MKX Com(j,i*8)* 8*MKX com(j,i*7)* 7*MKX com (Jj,i+6)+ http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
6*MKX com(j,i*5)* 5*MKX com(j,i-4)* 4*MKX com(j,i*3)* http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/O0EBPS/Text/... 
3*MKX com, 142)* 2*MKX comG, i*1)* 1*MKX com, i40) )./210; 
o 多 空 线 指标 DKX 
end 
end 


调用 该 函数 进行 数值 计算 如 下 : 


clc,clear,close all 
warning off 名 取 
feature jit off を 加 速 通道 


load('data000001.mat') 


openprice = data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; を 最 高 价 
lowprice = data000001(:,3)'; を 最 低 价 
closeprice = data000001 (: , 4)'; $ 收盘 价 
DKX com = DKX (openprice, highprice,lowprice, closeprice); & 多 空 线 指标 DKX 


figure (2) 

subplot (121) ,plot (closeprice', Vut) 
xlabel ('t") ;ylabel(' 收 盘 价 ') 

subplot (122), plot (DKX com', Uy 
xlabel('t');ylabel('£5 空 线 指标 DKX) 


绘制 图 形 如 图 5-8 所 示 。 
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图 5-8 大 数据 下 的 多 空 线 指标 DKX 计 算 
如 图 5-8 所 示 ， 采 用 多 空 线 指标 DKX 计 算得 到 的 趋势 线 走势 和 实际 的 收盘 价 走势 相同 ， 并 且 更 加 平滑 ， 因 此 多 空 线 指标 DKX 可 以 平滑 


5.9 ”区 间 震 荡 线 指标 


区 间 震 荡 线 指标 DPO 转 


绕 0 轴 上 下 震荡 ， 当 


快 ， 此 时 投资 者 应 该 严格 注意 股票 的 走势 。 


区 间 震 荡 线 指标 DPO 计 算 公式 如 下 。 


(1) 计算 股票 的 移动 平均 值 ， 具 体 如 下 : 


MPO, -SMA(closeprice,, periods) 


Hp, SMARA SETS BRL, 


(2) 取 MPO 数 列 值 的 前 periods/2+1 天 的 值 MPOY， 将 收盘 价 减 去 MPOY， 则 得 到 相应 的 区 间 震 荡 线 指标 DPO 值 ， 具 体 计算 如 下 : 


DPO, = closeprice, - MPO 


2l periods +1) 


折线 ， 并 且 滤 出 伪 信 号 ， 为 投资 者 提供 有 力 的 参考 依据 。 


区 间 震 荡 线 指标 DPO 在 0 轴 上 方 时 ， 可 以 买 入 该 股票 ， 当 区 间 震 荡 线 指标 DPO 趋 势 向 下 时 ， 则 投资 者 可 以 考虑 减仓 。 


区 间 震 荡 线 指标 DPO 震 荡 的 剧烈 程度 和 股票 的 上 涨 下 跌幅 度 相关 ， 当 区 间 震 荡 线 指标 DPO 向 上 的 幅度 很 大 时 ， 则 说 明 股 票 上 涨 迅速 ， 当 区 间 震 荡 线 指标 DPO 向 下 震荡 幅度 很 大 时 ， 说 明 股 票 价格 回落 很 


2 
其 中 ， 由 periods/2+1 可 知 ，periods 为 一 个 整数 值 且 为 偶数 值 ， 其 大 小 小 于 样本 长 度 。 
由 此 编写 区 间 震 荡 线 指标 DPO 函 数 程序 如 下 : 
function DPO com = DPO(closeprice, periods) 
* 函数 功能 ， 区 间 震 荡 线 指标 DPO 
$ 生生 ee SIS a Eat 即 为 行 向 量 
% WA: 
$ closeprice- 为 输入 的 收盘 价 
$us peirods- 计 算 周期 
+ 区间 震荡 线 指标 DPO 
MPO com=nan*ones (size (closeprice, 1) , size (closeprice, 2)); % 初始 化 
MPOY com-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); % 初始 化 
DPO com-nan*ones (size (closeprice, 1) , size (closeprice,2)); る 初始 化 
period = fix(periods/2)+1; 
MPO com- SMA (closeprice, periods); も MA 计算 ， 移 动 平均 值 
MPOY com(:,period:end) = MPO com(:,1:end-period+1) ; % 前 移 


% 区 间 震 荡 线 指标 DPO 
for j=1:size (closeprice, 1) % dT 
for 1=pertod+1 : s1ze (closeprice,2) % 列 


DPO com(j,i) = closeprice(j,i)-MPO com(j,i-period); % 区 间 震 荡 线 指标 DPO 


end 
end 
调用 DPO 函 数 进行 股票 区 间 震 荡 线 指标 分 析 ， 具 体 如 下 : 


clc,clear,close all 
warning off 
feature jit off 


load('data000001.mat"') 


openprice = data000001(:, % 开盘 价 


4) 


o 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


$$ 最 高 价 
% 最 低 价 
る 收盘 价 


highprice = data000001(:,2)'; 
lowprice = data000001(:,3)'; 
closeprice = data000001(:,4)'; 


DPO com = DPO(closeprice, periods); 


figure (2) 
subplot (121) ,plot (closeprice','.-'); 
xlabel('t') ;ylabel(' 收 盘 价 ') 

subplot (122),plot(DPO com','.-'); 
xlabel ('t') ;ylabel (' 区 间 震 荡 线 指标 DPO' ) 


% 区 间 震 荡 线 指标 DPO 


绘制 图 形 如 图 5-9 所 示 。 
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如 图 5-9 所 示 ， 采 用 区 间 震 荡 线 指标 DPO 计 算得 到 的 指标 


100 


大 数据 下 的 区 间 震 荡 线 指标 DPO 计 算 


图 5-9 


线 ， 能 够 在 大 中 前 超前 预测 ， 此 时 上 证 指数 逐渐 发 散 ， 系 统 所 能 控制 的 量 失 衡 ， 因 


间 震 荡 线 指标 DPO 能 够 为 投资 者 提供 有 力 的 参考 依据 。 


5.10 分水岭 指标 


200 300 


400 


此 后 期 继续 操作 则 风险 很 大 ， 这 也 符合 实际 工 况 ， 因 


此 


分 水 岭 指 标 FSL 由 两 条 分 水 岭 曲 线 构成 ， 可 看 做 一 条 弱 分 水 岭 界限 SWS， 一 条 强 分 水 岭 界限 SWL， 当 股票 价格 超出 分 水 岭 区 域 并 且 趋 势 向 上 时 ， 则 该 股票 表现 很 强势 且 是 强势 上 涨 ， 当 股票 价格 超出 分 


水 岭 


区 域 并 且 趋 势 向 下 时 ， 则 该 股票 表现 也 很 强势 且 是 强势 下 跌 ;， 当 股票 波动 强 于 分 水 岭 界限 之 间 时 ， 则 说 明 该 股票 


属于 正常 波动 。 


分 水 岭 指 标 FSL 在 量化 投资 反 趋势 指标 计算 中 ， 属 


(1) 采用 指数 平滑 移动 平均 值 EMA 计 算 收盘 价 ， 


于 较 简 单 使 


体 如 下 : 


的 指标 。 分 水 岭 指标 FSL 由 SWL 和 SWS 指 标 组 成 ， 具 体 分 水 岭 指标 FSL 的 计算 如 下 。 


Tx EMA(closeprice,,5) +3x EMA(closeprice,,10) 


7 


(2) 采用 动态 移动 平均 值 DMA 来 计算 SWS， 具 体 如 下 : 


SWS, = DMA| EMA(closeprice,,12) , max | 1,100x 


其 中 , sum (TradingVolumn, 5) 表示 成 交 量 的 5 日 


编写 分 水 岭 指 标 FSL 求 解 程序 如 下 : 


10 


sum (TradingVo 


累加 和 ; Capital 是 当前 的 流通 股本 。 


lumn,,5) 


3x Capital, 


function [SWL com,SWS com]- FSL(closeprice, TradingVolume, Capital) 


$ 函数 功能 : 分 水 岭 指 标 F5L 
AE 即 为 行 向 量 
A: 


closeprice- 为 输入 的 收盘 价 
TradingVolume- 输 入 的 成 交 量 
Capital- 当 前 的 流通 股本 

u Peirods- 计 算 周期 


出 : 
分 水 岭 指标 FSL 


de de de de op op op 


SWL com=nan*ones (size (closeprice,1),size(closeprice,2)); 
EMA com -nan*ones (size (closepr1ce, 1 ) , size (closeprice,2 
SWS comenan*ones (size (closeprice,1),size(closeprice,2)); を 
SWTC com=nan*ones (size (closeprice,1),size(closeprice,2)); 


; % 初始 人 
; % 初始 化 


) 
) ) 
) 


sumTradingVolume = nan*ones (size (closeprice,1),size(closeprice,2)); $ 初始 


S 分 水 岭 指标 FSL 


SWL com- ( 7*EMA(closeprice,5)*3*EMA(closeprice,10) )./10; % MA 计算 ,移动 平均 值 


EMA com = EMA (closeprice, 12); 
for j-1:size(TradingVolume, 1) 
for i-1:size (TradingVolume, 2) -5 


sunTradingVolume(j,i) 


end 
end 


$ period-12; 


sum(TradingVolume(j,i:i-4) ); % 5 日 交易 量 累积 和 


SWTC com = max(1, 100*sumTradingVolume./3./Capital); 
SWS com = DMA(EMA com, SWTC com ); 


相应 的 动态 移动 平均 值 DMA 程 序 如 下 : 


function dma com=DMA (price, weight) 


D 


D 


de de de op oe oe 


函数 功能 ，DMA- 动 态 移动 平均 什 


数据 矩阵 
参数 ， 表 


dma com 动态 移动 平均 值 


dma com(:,1)-price(:,1); 
if length (weight)--1 
for i-2:size(price,2) 

dma com(:,i)-weight.*price(:,i)-*(l-weight).*dma com(:,i-1); 


end 
else 


for i-2:size(price,2) 
dma com(:,i)-weight (:,i).*price(:,i)*(l-weight(:,i)).*dma com (:,i-1); 


end 
end 


示 当 前 序列 值 的 权重 0 < weight <= 1， 小 数 


调用 分 水 岭 指 标 FSL 分 析 股 票数 据 如 下 : 


clc,clear,close all 


warning off 


feature jit off 


load('data000001.mat"') 
TradingVolumn = data000001(:,1) 


Capital = data000001(:, 


closeprice = data000001(:,4)'; 
[SWL com,SWS com]- FSL(closeprice,TradingVolumn,Capital); を 分 水 岭 指 标 FSL 


figure (2) 


s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


% 加 速 通道 
' *1; % 成 交 量 
2)' *1000; を 流通 股本 
る 收盘 价 


subplot (131) ,plot (closeprice','.-'); 
xlabel ('t") ; ylabel (" 收 盘 价 人 
subplot (132) , plot (SWL com','.-'); 
xlabel('t');ylabel('SWLd&bs') 
subplot (133) ,plot (SWS com','.-'); 
xlabel('t');ylabe1 ("SWS 指 本 


得 到 如 图 5-10 所 示 结 果 。 
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图 5-10 大 数据 下 的 分 水 岭 指 标 FSL 求 解 


如 图 5-10 所 示 ， 分水岭 指 标 FSL 指 标 能 够 反映 上 证 指数 的 实时 变化 趋势 ， 并 且 其 平滑 性 能 够 让 投资 者 在 排除 伪 信 号 影响 下 合理 判断 股票 的 上 涨 和 下 跌 趋势 。 


5.11 随机 指标 


随机 指标 KDj 根 所 
前 股票 的 行情 。 


居 股 


EE | 
AR 


的 最 高 价 、 股 票 的 最 低 价 以 及 股票 的 收盘 价 计算 出 来 的 K 值 线 、D 值 线 、J 值 线 ， 并 且 通 过 判断 K、D、J 值 的 大 小 关系 ， 进 而 决定 股票 的 买 入 和 卖 出 参考 点 ， 能 够 比较 直观 地 判断 当 


根据 随机 指标 KDJ 的 K、D、J 值 ， 可 以 作为 股票 买 入 和 卖 出 参考 点 。 


具体 的 表现 形式 有 : 当 J>80 时 ,器 


档 机 率 大 ; 当 J<20 时 ， 反 弹 机 率 大 。 当 K 在 20 左 右 向 上 交叉 D 时 ， 可 作为 买 入 信号， 此 时 投资 者 可 以 介入 ; 当 K 在 80 左 右 向 下 交叉 D 时 ， 可 作为 卖 出 信号 ， 此 时 投资 者 


应 该 适当 减仓 。 当 J> 100 时 ， 股 票 价格 易 反 转 下 跌 ， 此 时 投资 者 应 该 适当 减仓 ; 当 J<0 时 ， 股 票 价格 易 反 转 上 涨 ， 此 时 投资 者 可 以 适当 考虑 加 仓 。 


随机 指标 KDJ 的 计算 公式 如 下 : 


(1) 计算 周期 未 成 熟 随机 值 RSV， 具 体 如 下 : 


RSV,-100x 


(2) 计算 K 值 ， 具 体 如 下 : 


K, = EDMA( RSV, period2,1) 


其 中 ，EDMA 函 数 为 指数 移动 平均 值 函 数 ，period2 为 计算 的 周期 ， 为 整数 | 


(3) 计算 D 值 ， 具 体 如 下 : 


D, = EDMA(K,, period3,1) 


其 中 ，EDMA 函 数 为 指数 移动 平均 值 函数 ;period3 为 计算 的 周期 ， 为 整数 | 


其 中 ，HHV 函 数 为 序列 最 大 值 函 数 ; LLV 函 数 为 序列 最 小 值 函 数 ;period1 为 计算 的 周期 ， 为 整数 且 小 了 


目 小 于 样本 长 / 


受 。 


目 小 于 样本 长 / 


样本 长 / 


度 : closeprice 为 股 


= 
E 


(closeprice, -LLV (lowprice, , period 1)) 
(HH y (highprice, ,periodl)—- LLV (lowprice, , period] )) 


的 收盘 价 ; lowprice 为 股 


= 
E 


的 最 低 价 ; highprice 为 股 


= 
E 


的 最 高 价 。 


So 
(4) 计算 J 值 ， 具 体 如 下 : 

由 此 编写 KDJ 函数 程序 如 下 : 

unction [K com,D com,J com] = KDJ(closeprice,highprice, lowprice,periodl, period2,period3) 


函数 功能 :随机 指标 KDJ 
sss :在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 
A: 
closeprice- 为 输入 的 收盘 价 
highprice- 为 输入 的 最 高 从 
lowprice- 为 输入 的 最 低 价 
peirod1- 计 算 周 期 
Peirod2- 计 算 周期 
Peirod3- 计 算 周期 
随机 指标 KDJ 


出 


de oe de de de de de oe de op op Hh 


LLV com-nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; 
HHV_com=nanxones (size (closeprice,1),size(closeprice,2)); 
RSV com=nan*ones (size (closeprice,1),size(closeprice,2)); 
K com-nan*ones (size (closeprice,1),size(closeprice,2)); 
D comenan*ones (size (closeprice,1),size(closeprice,2)); 
J com-nan*ones (size (closeprice, 1 ) , size (Closepr1ce, 2) ) ; 


LLV com=LLV (lowprice, per1od1 ) ; 列 最 小 值 
HHV_com=HHV (highprice, periodl); 列 最 大 值 

RSV com = 100*(closeprice-LLV com) ./(HHV com-LLV com) H 
% 随机 指标 KDJ 

K com = EDMA(RSV com, period2, 1 ) 
D com = EDMA(K com, period3, 1); 

J com = 3*K com-2*D com; 


% F 
% 序 


de ge ae 


函数 功能 ，EDMA -指数 移动 平均 值 
函数 功能 :EDMA -指数 移动 平均 值 
函数 功能 ，EDMA -指数 移动 平均 值 


初始 化 
初始 化 


HHV 序 列 最 大 值 程序 如 下 : 


function hhv com = HHV (price, period) 
函数 功能 :HHV- 序 列 最 大 值 

输入 : 

Price- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1 


hhv com: HHV- 序 列 最 大 值 
hhv com-nan*ones (size (price, 1),size(price,2)); $ 初始 化 
if length (price)>period 3 


输出 


de de de de oe de 


de oe 


每 一 行 变量 的 长 度 是 否 大 于 period 


for j-1:size (price, 1) 行 ， 每 一 行 一 个 时 间 序 到 数据 
for i-period:length (price) $ 从 period 周 期 开始 计算 
hhv com(j,i)-max (price (j,i-period*1:i)); 3 求 最 大 值 
end 
end 
end 
LLV 序 列 最 小 值 程序 如 下 : 


function llv com = LLV (price,period) 
AN liv- 序 列 最 小 值 
TEASE 
Price- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1 
输出 : 


de dp oe de oe sp 


llv com 11v- 序 列 最 小 值 
llv com-nan*ones (size (price, 1 ) , size (price, 2) ) ; s 初始 化 
if Tength (price) >period % 每 一 
for j=1:size (price,1) 多 
for i-period:length (price) 
llv com(j,i)-min(price(j,i-period*l:i)); 
end B 
end 
end 


行 变量 的 长 度 是 否 大 于 period 
于 ， 每 一 行 一 个 时 间 序列 数据 
$ 从 period 周 期 开始 计算 


% 求 最 小 值 


调用 KDJ 程 序 如 下 : 


clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗 口 
warning off を 取消 警告 
feature jit off を 加 速 通道 


load('data000001.mat"') 


openprice = data000001(:,1)'; % 开盘 价 
highprice = data000001(:,2)'; $ 最 高 价 
lowprice = data000001(:,3)'; E 

closeprice = data000001(:,4)'; % 收盘 价 


[K com,D com,J com] = KDJ (closeprice, highprice,lowprice,periodl,period2, period3); る 随机 指标 KDJ 
figure (2) 
subplot (221) ,plot (closeprice', .-'); 


xlabel('t!);ylabel ("收盘 价 ') 
subplot (222) ,plot (K com','.-'); 
xlabel('t');ylabel("Kffi') 
subplot (223),plot(D com','.-'); 
xlabel('t');ylabel("DÍfi') 
subplot (224) ,plot (J com','.-'); 
xlabel ('t') ;ylabel('J 值 ') 


figure(3); 
plot(K com','r.-'); 
xlabel('t');ylabel('KDOffi'); 


xlabel('t');ylabel('KDOfi') 
plot(J com','b.-'); 
xlabel('t');ylabel('KDJfÉ') 
legend ('Kffi' , 'D 值 ', 'J 值 ') 


得 到 如 图 5-11 所 示 结 果 。 
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5-11 大 数据 下 的 随机 指标 KDJ 求解 


如 图 5-11 所 示 ， 随 机 指标 KDJ 指标 能 够 反映 上 证 指数 的 实时 变化 趋势 ， 当 J> 80 时 ， 回 档 机 率 大 ; 当 J<20 时 ， 反 弹 机 率 大 。 当 K 在 20 左 右 向 上 交叉 D 时 ， 可 作为 买 入 信号 ; 当 K 在 80 左 右 向 下 交叉 D 时 ， 可 
作为 卖 出 信号 。 当 J> 100 时 ， 股 票 价格 易 反 转 下 跌 ; 当 J<0 时 ， 股 票 价格 易 反 转 上 涨 。 


KDJ 绘制 在 一 幅 图 上 显示 如 图 5-12 所 示 。 
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图 5-12 KDJ 值 同步 显示 


5.12 威廉 指标 


威廉 指标 WR 是 一 个 振荡 性 指标 ， 单 纯 地 看 威廉 指标 WR 曲线 ， 投 资 者 获取 的 信息 量 很 少 。 威 廉 指 标 WR 中 ，W 和 R 为 测量 行情 振荡 的 指标 ， 一 般 认 识 当 WR 指 标 越 大 时 ， 股 票 上 涨 的 可 能 性 越 大 ， 当 威廉 
指标 WR 越 小 时 ， 则 股票 价格 下 跌 的 可 能 性 越 大 。 投 资 者 可 以 根据 这 种 判断 关系 合理 的 买 入 和 卖 出 手中 的 股票 。 


威廉 指标 WR 波动 范围 为 0~ 100， 其 中 以 数值 50 为 其 中 轴线 ， 当 股票 价格 高 于 威廉 指标 WR=50 视 为 股价 转 强 ， 此 时 投资 者 可 以 考虑 买 入 该 股票 ， 当 股票 价格 低 于 威廉 指标 WR=50 则 视 为 股价 转 弱 ， 此 
时 投资 者 可 以 考虑 卖 出 该 股票 。 


股 认 为 ， 威 廉 指 标 WR 高 于 20 后 再 度 向 下 跌 破 20， 此 时 投资 者 可 考虑 卖 出 股票 ; 同样， 当 威 廉 指 标 WR 低 于 80 再 度 向 上 突破 80， 则 为 买 入 信号 ， 不 过 股票 回落 的 风险 也 足够 大 。 


威廉 指标 WR 计算 公式 如 下 。 


max WR, = HHV (highprice,, period ) 


其 中 ，period 为 相应 的 计算 周期 且 为 整数 ， 其 大 小 小 于 样本 长 度 。 


(2) 计算 序列 最 小 值 ， 具 体 如 下 : 
min WR, = LL V (lowprice,, period ) 
(3) 威廉 指标 WR 计算 如 下 : 


max WR, — closeprice, 


WR, =100 x ' 
max WR, — min WR, 


编写 威廉 指标 WR 函数 程序 如 下 : 


function [WR com] = WR(closeprice,highprice, lowprice, period) 
% 函数 功能 : 威廉 指标 WR 

を 人 即 为 行 向 量 

$ 输入 : 

も closeprice- 为 输入 的 收盘 价 

highprice- 为 输入 的 最 高 价 

lowprice- 为 输入 的 最 低 价 

peirod- 计 算 周 期 


de op op 


è 输出 : 


威廉 指标 WR 
LLV com-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); る 初 始 化 
HHV com-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); き 1 初始 化 
WR com-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); % 初 iet 
LLV com-LLV (lowprice, period) ; $ 序列 最 小 值 
HHV_com=HHV (highprice, period); s 序列 最 大 值 
に 威廉 指标 WR 
WR com = 100*(HHV com-closeprice)./(HHV com-LLV com); 
相应 的 主 程序 如 下 : 
clc,clear,close all を 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗 口 
warning off を 取消 警告 
feature jit off % 加 速 通 道 
load('data000001.mat') 
openprice = data000001(:,1)' る 开盘 价 
highprice = data000001(:,2)' & 最 高 价 
lowprice = data000001(:,3) ' & _ 最 低 价 
closeprice = data000001(:,4)' s 收盘 价 
[WR com] = Wn (eloseprice, htohorice, Jogpriee, nero) £ る 威廉 指标 WR 
figure (2) 
subplot (121) ,plot (closeprice','.-'); 
xlabel ('t') ;ylabel(' 收 盘 价 ') 
subplot (122),plot(WR com','.-'); 
xlabel('t');ylabel (' 威 廉 指 标 WR') 
得 到 如 图 5-13 所 示 结 果 。 
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图 5-13 ”大 数据 下 的 威廉 指标 WR 求解 


如 图 5-13 所 示 ， 威 廉 指 标 WR 指 标 一 定 程度 上 能 够 反映 股票 的 买 入 和 卖 出 切入 点 ， 当 威廉 指标 WR 波动 范围 为 0 ~ 100， 并 且 高 于 20 后 再 度 向 下 跌 破 20， 则 为 卖 出 信号 ; 当 威 廉 指标 WR 低 于 80 再 度 向 上 突 
破 80 时 ， 则 为 买 入 信号 ， 其 买 入 和 卖 出 响应 能 够 让 投资 者 在 排除 伪 信 号 影响 下 合理 判断 股票 的 上 涨 和 下 跌 趋 势 。 


5.13 [威廉 指标 


L 威 廉 指 标 LWR 是 威廉 指标 WR 的 改进 指标 评价 算 子 ，L 威 廉 指标 LWR 在 威廉 指标 WR 的 基础 上 采用 指数 平滑 处 理 ， 使 得 该 指标 直接 根据 LWR 指 标 值 进行 买 入 和 卖 出 判断 。 具 体 认 为 ， 当 L 威 廉 指标 LWR 小 
于 30 时 ， 则 认为 是 买 入 信号 ; 相反 ， 当 [威廉 指标 LWR 大 于 70 时 ， 则 认为 为 卖 出 信号 。 


LWR, = EDMA(WR,, period2,1) 


Hp, EDMA 路 数 訪 指 数 移 効 平均 値 豆 数 , period27JLESSJSIHB. 


相应 的 EDMA 程 序 如 下 : 


function edma com = EDMA (price,period,weight) 


% oe EDMA -指数 移动 平均 值 

% price- 为 输入 的 数据 算 阵 

る Period- 为 周期 ，>= 1, 

$ weight: BU. 1«-weight«-period, 整数 

% 輸出 : 

& edma com: EDMA -指数 移动 平均 值 

edma com = nan*ones (size S a: 1),size(price,2)); % 初始 化 
る edma com(:,1)-price(:,1); る 初始 化 


行 ， 每 一 行 一 个 时 间 序列 数据 


for j=1:size (price, 1) 


de a 
dii 


for i-2:length (price) る 从 t=2 开 始 计算 
if ~isnan( (weight/period) *price(j,i) ) && isnan( edma com(j,i-1) 
edma com(j,i)-(weight/period)*price(j,i); % EDMA eR pinta 
elseif isnan( (weight/period) *price(j,i) ) && isnan( edma com (j,i-1) ) 
edma com(j,i) = nan; % EDMA -指数 移动 平均 值 
elseif isnan( (weight/period) *price(j,i) ) && -isnan( edma com (j,i-1) ) 
edma com(j,i)-((period-weight) /period)*edma com(j,i-1); 


$ EDMA -指数 移动 平均 值 


elseif ~isnan( (weight/period)*price(j,i) ) && ~isnan( edma com (j,i-1) ) 


edma com(j,i)-(weight/period)*price(j,i) + ((period-weight)/ period)*edma com(j,i-1); S EDMA -指数 移动 平均 值 


相应 的 [威廉 指标 LWR 函 数 如 下 : 


function [LWR com] = LWR(closeprice, highprice, lowprice, periodl, period2) 
male: MURIS » 
closeprice: 在 列 向 量 上 随时 间 变化 ， 即 为 行 向 量 


% 输入 

る closeprice- 为 输入 的 收盘 价 

$ highprice- 为 输入 的 最 高 价 

る lowprice- 为 输入 的 最 低 价 

る peirod- 计 算 周期 

% 输出 : 

$ 威廉 指标 WR 

LLV comenan*ones (size (closeprice, 1) , size (closeprice,2)); を 初始 化 
HHV com=nan*ones (size (closeprice, 1) , size (closeprice,2)); を 初始 化 
WR com=nanxones (size (closeprice,1),size(closeprice,2)); を 初始 化 
LWR com-nan*ones (size (closeprice, 1), size (closeprice,2)); る 初始 化 
LLV com=LLV (lowprice, periodl); & 序列 最 小 值 

HHV com-HHV (highprice, periodl); & 序列 最 大 值 


% 威廉 指标 WR 

WR com = 100* (HHV_com-closeprice) m (HHV com-LLV com); 

% 1 成 謙 指 本 LR こ - 
LWR com = EDMA(WR com, pertod2, 1) S 指数 移动 平均 值 函 数 


调用 lL 威廉 指标 LWR 函 数 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 

warning off % 取消 警告 

feature jit off 加 速 通道 

[LWR com] = LWR(closeprice,highprice,lowprice,periodl,period2) % 威廉 指标 WR 
figure (1) 

subplot (121) ,plot (closeprice','.-'); 


xlabel ('t") ;ylabel(" 收 盘 价 人 
subplot (122),plot(LWR com','.-'); 
xlabel ('t') ;ylabel ('I 威 廉 指标 LNR') 


load('data000001.mat"') 


openprice = data000001(:,1)" s 开盘 价 

highprice = data000001(:,2)'; を 最 高 价 

lowprice = data000001(:,3)'; $ 最 低 价 

closeprice = data000001 (:, 4) ' $ 收盘 价 

[LWR com] = ism (closeprico highprice Towcri oe; periodi period); % 威廉 指标 WR 
figure (2) 

subplot (121) , plot (closeprice','.-'); 


xlabel('t');ylabel ("收盘 价 ') 
subplot (122) , plot (LWR. Gom, =) 
xlabel('t');ylabel( CURREEERTHR" ) 


得 到 如 图 5-14 所 示 结 果 。 


如 图 5-14 所 示 ，! 威 廉 指 标 LWR 指 标 一 定 程度 上 能 够 反映 股票 的 买 入 和 卖 出 切入 点 ，! 威 廉 指标 WR 波 动 范围 为 0 ~ 100， 当 LWR 值 小 于 30 则 认为 是 买 入 信号 ， 当 LWR 值 大 于 70 时 ， 则 认为 是 卖 出 信号 ， 在 
上 证 指数 上 涨 和 下 跌 过程 中 ，L 威 廉 指标 LWR 能 够 较 好 地 在 买 入 和 卖 出 点 之 前 作出 响应 ， 为 投资 者 提供 参考 价值 。 
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图 5-14 ”大 数据 下 的 工 威廉 指标 LWR 求 解 


5.14 变动 速率 指标 


变动 速率 指标 ROC 是 根据 股票 收盘 价 period 周 期 里 的 价格 增长 率 作 为 计算 指标 ， se 变动 速率 指标 ROC 因 不 同 股票 而 不 同 ， 并 且 变 动 速率 指标 ROC 较 多 的 在 -6.5 到 +6.5 之 
间 波 动 。 当 变动 速率 指标 ROC 大 于 0 时 ， 表 示 在 period 周 期 内 ， 股 票 是 看 涨 的 ， 当 变动 速率 指标 ROC 小 于 0 时 ， 则 表示 在 period 周 期 内 ， 股 票 是 看 跌 的 。 当 变动 速率 指标 ROC 由 负 到 0 轴 时 ， 此 时 投资 者 可 以 
买 入 该 股票 ， 当 变动 速率 指标 ROC 由 正 到 0 轴 时 ， 则 投资 者 可 以 卖 出 手中 的 股票 。 


具体 的 变动 速率 指标 ROC 计 算 公式 如 下 : 


closeprice, — closeprice, 
Rog =r ——— I 


closeprice, period 


其 中 ，period 为 计算 周期 且 为 整数 ， 其 大 小 小 于 样本 长 度 。 


变动 速率 指标 ROC 是 股票 收盘 价 近 period 日 的 加 速度 指标 ， 衡 量 该 股票 是 否 有 上 涨 或 下 跌 的 转变 趋势 。 


具体 的 ROC 函 数 程序 如 下 : 
function [ROC com] = ROC(closeprice, period) 


% 函数 功能 ， 变 动 速率 指标 ROC | 
$ 人 即 为 行 向 量 
$ 输入 : 

closeprice- 为 输入 的 收盘 价 
highprice- 为 输入 的 最 高 价 
lowprice- 为 输入 的 最 低 价 
peirod- 计 算 周期 


idi 
变动 速率 指标 ROC 


de oe de de gp oe 


REF com-nan*ones (size (closeprice, 1) , size (closeprice,2)); 5 初始 化 
ROC com-nan*ones (size (closeprice, 1 ) , size (closeprice,2)); % 初始 化 


& 变动 速率 指标 ROC 
for j=1:size (closeprice, 1) 
for 1=pertod+1 : s1ze (closeprice, 2 ) 
REF com(j,i) = closeprice(j,i-period); 
ROC com(j,i) = 100* (closeprice(j,i)-REF com(j,i))./(REF com(j,i)); 
end 
end 


编写 ROC 函 数 调 用 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 

feature jit off s 加 速 通道 

period = 5; % 计算 周期 ,为 整数 ，1<= period <= N 
load('data000001.mat"') 

closeprice = data000001(:,4)'; % 收盘 价 x 

[ROC com] = ROC (closeprice, period) ; % 变动 速率 指标 ROC 
figure (2) 


subplot (121),plot (closeprice','.-'); 
xlabel('t');ylabel (收盘 价 人 ) 

subplot (122) ,plot (ROC com','.-'); 
xlabel('t');ylabel (" 变 动 速率 指标 ROC' ) 


得 到 如 图 5-15 所 示 图 形 。 
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图 5-15 大 数据 下 的 变动 速率 指标 ROC 求 解 


如 图 5-15 所 示 ， 在 上 证 指数 突破 3500 时 ， 变 动 速率 指标 ROC 波 动 异常 ， 此 时 应 该 警惕 股市 风险 ， 一 般 认 为 变动 速率 指标 ROC 超 过 6.5， 则 有 较 大 的 回调 可 能 。 


5.15 相対 強弱 指 酸 


相对 强 弱 指标 RSI 利 用 一 定时 期 period 内 ， 平 均 收盘 涨 数 Rsl_1 与 平均 收盘 涨 跌 数 Rsl_2 的 比值 来 反映 股市 走势 。 相 对 强 弱 指 标 RsI 的 计算 周期 可 选 为 5 天 、10 天 、14 天 等 。 当 然 投资 者 也 可 以 选择 其 他 的 
计算 周期 ， 较 为 理想 的 测试 周期 为 5 天 。 


相对 强 弱 指标 Rsl 与 [威廉 指标 的 LWR 指 标 近 似 ， 在 0 ~ 100 之 间 波 动 。 当 LWR 值 小 于 30 时 ， 则 投资 者 可 以 考虑 买 入 股票 ; 当 LWR 值 大 于 70 时 ， 则 投资 者 可 以 考虑 卖 出 手中 股票 。 而 相对 强 弱 指标 Rsl 大 于 
80 时 ， 则 投资 者 可 以 考虑 买 入 股票 ; 当 RSI 小 于 20 时 ， 则 投资 者 可 以 考虑 卖 出 手中 股票 。 


相对 强 弱 指标 RSI 是 以 50 为 中 轴线 ， 相 对 强 弱 指标 RSI 大 于 50， 则 认为 股票 上 涨 势头 较 明显 ， 而 相对 强 弱 指标 RsI 小 于 50， 则 认为 是 空头 行情 ， 股 票 买卖 无 量 。 


相对 强 弱 指标 Rsl 的 计算 公式 如 下 。 


(1) 抽取 股票 前 一 天 的 收盘 价 数据 ， 具 体 如 下 : 


REF com, —closeprice, , 


将 closeprice 延 时 一 天 的 数据 赋值 给 REF com， 并 且 当 t=1 时 ，REF_com 为 空 ， 设 为 NaN。 


(2) 采用 EDMA 函 数 为 指数 移动 平均 值 函数 进行 closeprice 与 REF_com 的 差 值 求 解 ， 具 体 有 


RSI 1 = EDMA (max (closeprice, —REF com, 0), period,l) 


RSI 2, = EDMA (abs(closeprice, —REF com, ). period, 1) 


其 中 ，period 为 相应 的 计算 周期 ， 为 整数 且 其 大 小 小 于 样本 长 度 ; abs 为 取 绝 对 值 函数 。Rsl_1 是 求解 的 股票 上 涨 状态 的 移动 平均 值 ; Rsl_2 是 求解 的 股票 涨 跌 状 态 下 的 移动 平均 值 。 


RSI 1 
RSI, 2100x = 
RSI 2, 


由 此 编写 相应 的 RSI 程 序 如 下 : 


function [RSI com] = RSI (closeprice,period) 
函数 功能 :相对 强 弱 指标 RSI 

A 间 变 化 ， 即 为 行 向 量 
MA: 
PD a TAN, 


Peirod- 计 算 周 
相对 强 弱 指标 RSI 


REF com=nan*ones (size (closeprice, 1) , size (closeprice,2)) 


REF com1=nan*ones (size (closeprice,1),size(closeprice,2)); る 初始 化 
REF com2-nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; る 初始 化 
RSI 1=nan*ones (size (closeprice, 1 ) , size (closeprice,2)); る 初始 化 
RSI 2-nan*ones (size (closeprice, 1) , size (closeprice,2)); を 初始 化 
RSI com-nan*ones (size (closeprice,1),size(closeprice,2)); る 初始 
% 相对 强 弱 指标 RSI 
for j=1:size(closeprice, 1) 
for i-2:size(closeprice,2) 
REF com(j,i) = closeprice(j,i-1); % 昨日 收盘 价 
REF com1(j,i)-max( closeprice(j,i)-REF com(j,i), 0 ); る 取 最 大 值 
REF com2(j,i)-abs( closeprice(j,i)-REF com(j,i) ); を 取 绝 对 值 
end 


end 
RSI 1=EDMA(REF coml,period, 1); 
RSI 2-EDMA(REF com2,period,1); 


RSI = 100*RSI 1./RSI 2; 


调用 相对 强 弱 指标 Rs 程序 如 下 : 


clc,clear,close all る 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 

feature jit off を 加 速 通道 

load('data000001.mat') 

openprice = data000001(:,1)'; を 开盘 价 
highprice = data000001(:,2)'; る 最 高 价 
lowprice = data000001(:,3)'; $ 最 低 价 
closeprice = data000001(:,4)'; $ 收盘 价 

period = 5; $ 计算 周期 

[RST com] = RSI(closeprice, period); も 相对 强 弱 指标 RST 
figure (2) 

subplot (121) , plot (closeprice','.-'); 


xlabel('t') ;ylabel(' 收 盘 价 ') 
subplot (122) , plot (RST com','.-'); 
xlape1 ('t') ;ylabel (' 相 对 强 弱 指标 RSI') 


输出 图 形 如 图 5-16 所 示 。 
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图 5-16 ”大 规模 数据 下 的 相对 强 弱 指标 RSI 求 解 


如 图 5-16 所 示 ， 相 对 强 弱 指标 RSI 当 RSL 大 于 80 时 ， 则 认为 是 买 入 信号 ， 当 RSsI 小 于 20 时 ， 则 认为 是 卖 出 信号 ， 从 图 5-16 中 可 以 清晰 的 比 对 求 出 。 因 此 相对 强 弱 指标 Rsl 是 一 个 较为 有 效 的 市 场 参 考 指 


5.16 ” 慢 速 随机 指标 


慢 速 随机 指标 SKDJ 也 是 一 个 以 定量 数值 解 为 形式 的 指标 。 慢 速 随机 指标 SKDJ 通 过 当日 或 最 近 几 日 最 高 价 highprice、 最 低 价 lowprice 以 及 收盘 价 closeprice 的 变化 趋势 ， 来 反映 股票 整体 的 趋势 。 


慢 速 随机 指标 SKDJ 大 于 80 时 ， 股 票 价 格 回落 概率 较 大 ， 此 时 投资 者 投资 需 谨慎 ;同样 的 ， 当 慢 速 随机 指标 SKDJ 小 于 20 时 ， 则 股票 价格 反弹 机 率 是 比较 大 的 ， 投 资 者 可 以 适当 加 仓 ; 慢 速 随机 指标 SKDJ 


包括 K 指 标 和 D 指 标 ， 当 计算 出 的 K 指 标 在 20 左 右 向 上 交叉 D 时 ， 则 视 为 投资 者 买 进 股票 的 参考 信号 ; 当 计算 出 的 K 指 标 在 80 左 右 向 下 交叉 D 时 ， 则 视 为 投资 者 卖 出 股票 的 参考 信号 。 


盆 速 随机 指标 SKDJ 区 别 于 随机 指标 KDJ， 在 随机 指标 SDJ 中 ， 当 J> 80 时 ， 回 档 机 率 大 ; 当 J<20 时 ， 反 弹 机 率 大 。 当 K 在 20 左 右 向 上 交叉 D 时 ， 可 作为 买 入 信号 ， 此 时 投资 者 可 以 介入 ; 当 K 在 80 左 右 向 下 
交叉 D 时 ， 可 作为 卖 出 信和 号， 此 时 投资 者 应 该 适当 减仓 。 当 J> 100 时 ， 股 票 价格 易 反 转 下 跌 ， 此 时 投资 者 应 该 适当 减仓 ;， 当 J<0 时 ， 股 票 价 格 易 反 转 上 涨 ， 此 时 投资 者 可 以 适当 考虑 加 仓 。 


具体 的 慢 速 随机 指标 SKDJ 计 算 公式 如 下 。 


SL, = LLV (lowprice,, periodl) 


其 中 LLV 函 数 为 求 序列 最 小 值 函数 ; period1 妨 相 記 的 計算 周期 , PSS FL V] E FEISIKIE. 


(2) 计算 序列 最 大 值 ， 具 体 有 : 


SH, = HHV (highprice,, periodl) 


其 中 HHV 函 数 为 求 序列 最 大 值 函 数 ; period T7SfRNIBSTEEUAIRB, JSEEEREEURCAUJ FASK. 


(3) 采用 指数 平滑 移动 平均 值 函 数 计 算 SV， 具 体 有 : 


closeprice, — SL, 


SV, = EMA| 100x 
SH, — SL, 


period 2 


(4) HAKE, RAB: 


K, = EMA(SV,, period2) 


其 中 ，period2 为 相应 的 计算 周期 ， 为 整数 且 其 大 小 小 于 样本 长 度 。 


(5) 计算 D 值 ， 具体 有 : 


D, — EMA(K,, period2 


其 中 ，period2 为 相应 的 计算 周期 ， 为 整数 且 其 大 小 小 于 样本 长 度 。 


具体 的 慢 速 随机 指标 SKDJ 计 算 程序 如 下 : 


unction [K com,D com] = SKDJ (closeprice, lowprice,highprice, periodl, period2) 
函数 功能 : 慢 速 随 本 指 株 SKDJ_ g 
closeprice: 在 列 向 量 上 随时 间 变 化 ， 即 为 行 向 量 


输入 : 
closeprice- 为 输入 的 收盘 价 
highprice- 为 输入 的 最 高 价 
lowprice- 为 输入 的 最 低 价 
peirod1- 计 算 周 期 
Peirod2- 计 算 周期 
慢 速 随机 指标 SKDJ 


输出 


de de de de op de op oe de op Hh 


SL com=nan*ones (size (closeprice,1),size(closeprice,2)); 2; 初始 化 
SH_com=nanxones (size (closeprice, 1) , size (closeprice,2)); 名 初始 化 
SV_com=nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
K com-nan*ones (size (closeprice, 1 ) , size (closeprice, 2) ) ; る 初始 
D com-nan*ones (size (closeprice, 1) , size (closeprice, 2) ); % 初始 


$ 慢 速 随机 指标 SKDJ 


SL com = LLV (lowprice, periodl); & 序列 最 小 值 

SH com = HHV (highprice, periodl); $ 序列 最 大 值 

SV com = EMA( 100* (closeprice-SL com) Fi (SH_com-SL_com) ,period2 ); 
% 指数 平滑 移动 平均 值 

K com = EMA(SV com,period2 ); る 指数 平滑 移动 平均 值 

D com = SMA (K com,period2 ); % 指数 平滑 移动 平均 值 


相应 的 指数 平滑 移动 函数 如 下 : 


function ema com = EMA (price, period) 


函数 功能 ，EMA- 指 数 平滑 移动 平均 值 


输入 : 
Price- 为 输入 的 数据 矩阵 
Period- 为 周期 ，>= 1 


ema com: EMA- 指 数 平滑 移动 平均 值 
ema com(:,1)-price(:,1); 
if length (period)--1 

for i-2:size(price,2) 


输出 


if ~isnan( 2*price(:,i)./(period*l) ) && isnan( ema com(:,i-1)* (period-1) / (period+1) ) 
ema com(:,i)-2*price(:,i)./(period*l); 

elseif isnan( 2*price (:,1) ./ (period+1) ) && -isnan( ema com(:,i-1)* (period-1)/ (period+1) ) 
ema com(:,i)- ema com(:,i-1)* (period-1)/ (period*1); 

elseif -isnan( 2*price(:,1) ./ (period+1) ) sg -isnan( ema com(:,i-1)* (period-1)/(period4l) ) 
ema com(:,i)-2*price(:,i)./(period*1)*ema com(:,i-1)*(period-1)/ (period+1) 

elseif isnan( 2*price(:,i)./(period4l) ) && isnan( ema com(:,i-1)* (period-1)/(period4l) ) 
ema com(:,i)- nan; 

end x: 

end 


else 
for i-2:size(price,2) 
ema com(:,i)-2*price(:,i)./(period(i)*1)*ema com(:,i-1)*(period(i)-1)/ (period(i)41); 
end 
end 


调用 慢 速 随机 指标 SKDJ 函 数 如 下 : 


clc,clear,close all $ 理工 作 区 、 关 闭 图 形 窗口 
warning off る Hu E 

feature jit off を 加 速 通道 

periodl = 3; % 计算 周期 ,为 整数 ，1<= period <= N 
period2 = 3; % 计算 周期 ,为 整数 ，1<= period <= N 
load('data000001.mat"') 

openprice = data000001(:,1)'; を 开盘 价 

highprice = data000001(:,2)'; $ 最 高 价 

lowprice = data000001(:,3)'; る 最 低 价 

closeprice = data000001(:,4)'; s 收盘 价 

[K com,D com] = SKDJ (closeprice, lowprice,highprice, periodl, period2); 


o 慢 速 随 机 指 酸 SKDJ 


Figure (2) 

subplot (131) , plot (closeprice','.-'); 
xlabel('t') ;ylabel(' 收 盘 价 ') 

subplot (132) ,plot (K com','.-'); 
xlabel('t');ylabel("Kffi') 

subplot (133) ,plot (D com','.-'); 
xlabel('t');ylabel("Dfü') 


输出 图 形 如 图 5-17 所 示 。 
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如 图 5-17 所 示 ，K 值 和 D 值 位 于 0 ~ 100, 


100 


80 Lud 
Me | k x 
illii | | 
i 1 MM | | 
= E 
NUI RT T 
BRE P d 
e REIHE T 
jji 4 | 
20 上 
0 
400 600 0 200 400 600 0 200 400 
t t 


图 5-17 大 数据 下 的 慢 束 随机 指标 SKDJ 求 解 


当 慢 速 随机 指标 SKDJ 大 于 80 时 ， 回 档 机率 比 较 大 ; 当 慢 速 随机 指标 SKDJ 小 于 20 时 ， 则 反弹 机 率 比较 大 ; 由 于 K 值 和 D 值 变化 不 同步 ， 因 此 需要 投资 者 综合 


。 一 般 情况 下 ， 当 K 指 标 在 20 左 右 向 上 交叉 D 时 ， 则 视 为 买 进 信号 ; 当 K 指 标 在 80 左 右 向 下 交叉 D 时 ， 则 视 为 卖 出 信号 。 


绘制 KD 曲线 图 ， 程 序 如 下 : 


figure (3) 

plot(K com','.-'); xlabel('t') ;ylabel (' 慢 速 随机 指标 SKDJ') 
hold on 

plot(D com','o-'); xlabel('t'); 


legend( "Kf", "pfit ") 


得 到 如 图 5-18 所 示 结 果 。 
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5.17 ”摆动 指标 
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图 5-18 ”KD 值 同步 显示 


3 摆动 指标 通过 股票 的 收盘 价 closeprice、 股 票 的 最 高 价 highprice、 股 票 的 最 低 价 lowprice 和 股票 的 开盘 价 openprice 之 间 的 组 合计 算 而 得 来 的 一 个 指标 。 该 指标 通过 比较 股票 的 最 高 价 highprice、 股 


票 的 最 低 价 lowprice 与 延迟 一 天 的 股票 收盘 价 数据 的 差 值 的 绝对 值 序列 ， 并 将 该 差 值 序列 作为 分 母 ， 然 后 通过 收盘 价 与 开盘 价 的 组 合计 算 作为 分 子 ， 
延迟 一 天 的 股票 收盘 价 数据 的 差 值 的 绝对 值 序列 最 大 值 相 乘 ， 得 到 相应 的 参考 指标 。 


与 股票 的 最 高 价 highprice、 股 票 的 最 低 价 lowprice 与 


一 般 情况 下 ，SI 摆 动 指标 围绕 原点 上 下 摆动 ， 并 且 摆 动 浮动 较 小 ， 当 股票 异常 波动 时 ， 则 SI 摆动 指标 振幅 将 增 大 ， 投 资 者 可 根据 SI 摆动 指标 的 数据 进而 判断 股票 的 走势 。 


摆动 指标 SI 计算 公式 如 下 。 


(1) 获取 延迟 一 天 的 股票 收盘 价 数据 ， 具 体 如 下 : 


S], = closeprice, , 


(2) 获取 股票 最 高 价 与 S1t 数 据 的 差 值 的 绝对 值 序列 ， 具 体 如 下 : 
S2, = highprice, — $1, 


(3) 获取 股票 最 低 价 与 S1t 数 据 的 差 值 的 绝对 值 序列 ， 具 体 如 下 : 


S3, — lowprice, 一 S1, 


(4) 获取 延迟 一 天 的 股票 最 低 价 数据 ， 具 体 如 下 : 


S4, — lowprice, , 


(5) 获取 延迟 一 天 的 股票 开盘 价 数据 ， 具 体 如 下 : 


S5, — openprice, , 


(6) 获取 股票 最 高 价 与 4 数据 的 差 值 的 绝对 值 序列 ， 具 体 如 下 : 


S6, = highprice, -$ 4 | 


(7) 获取 股票 S1t 与 S5 巩 据 的 差 值 的 绝对 值 序列 ， 具 体 如 下 : 


(8) 计算 中 间 变量 S8t， 具 体 如 下 : 


83, 


S2,4 -一 S2, > 53, & S2, > S6, 


2 
S8, = - E534 一 , 83,» 86, & S3, > S2, 


S6, M others 


(9) 计算 中 间 变量 S9t， 具 体 如 下 : 


S9, 
2 


(10) 摆动 指标 SI 计算 如 下 : 


S9. 


SI, 
S8, 


由 此 编写 摆动 指标 SI 函数 程序 ， 具 体 如 下 : 


3x closeprice, — openprice, 


S 83. 


= 


function [SI com] = SI(closeprice,highprice, lowprice, openprice) 
函数 功能 ， 皖 动 指标 sT — $ 

a PE EEE EEE 即 为 行 向 量 

DA: 


closeprice- 为 输入 的 收盘 价 
highprice- 为 输入 的 最 高 价 
lowprice- 为 输入 的 最 低 价 
openprice- 为 输入 的 开盘 价 
Peirod- 计 算 周期 


输出 : 

摆动 指标 SI 

S1_com=nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 
=nan*ones (size(closeprice,1),size(closeprice,2)); % 初始 化 
-nan*ones (size(closeprice,1),size(closeprice,2)); $ 初始 化 
-nan*ones (size(closeprice,1),size(closeprice,2)); $ 初始 化 

S5 com-nan*ones (size (closeprice,1), size (closeprice,2 )); $ 初始 化 
-nan*ones (size(closeprice,1),size(closeprice,2)); $ 初始 化 
-nan*ones (size(closeprice,1),size(closeprice,2)); $ 初始 化 
-nan*ones (size(closeprice,1),size(closeprice,2)); $ 初始 化 
-nan*ones (size(closeprice,1),size(closeprice,2)); $ 初始 化 

SI com-nan*ones (size (closeprice,1),size(closeprice,2)); % 初始 化 


S1 com(:,2:end)-closeprice (:,1:end-1); % 昨日 收盘 价 
S2 com = abs(highprice-S1 com); 
S3 com = abs(lowprice-S1 com); 
$4 com(:,2:end)-lowprice(:,1:end-1); 
S5 com(:,2:end) -openprice (:,1:end-1); 
S6. com = abs (highprice-S4 | com); 
FUN com = abs(S1 com-S5 | COm); 
% 计算 s8 
£x ]=1:size(S1 com, 1) 
for i-1:size(Sl com,2) 
if S2 | com(j,i 1) >S3 com(j,i) && S2 ER i)>S6 | com (3, i) 
S8 com(j,i) = S2 com(j,i)*S3 com(j,i)/2*87 com(j,i)/4; 
else 
if S3 com(j,i)»S2 com(j,i) && S3 com(j,i i)>S6 | com (j, i) 
S8 com(j,i) = S2 com(j,i)/2*83 com(],1)+87 com(j,i)/4; 
else 
S8 com(j,i) = S6 com(j,i)*S7 com(j,i)/4; 


昨日 最 低 价 
昨日 开盘 价 


end 
end 
end 
end 
% 计算 S9 
S9 com = 1.5*closeprice-openprice/2 -S5 com; 
% TRSHBERSI 


SI com = 16.*S9 com. /S8 com. *max(S2 com,S3 com); 


编写 调用 摆动 指标 31 函 数 程序 如 下 : 


clc,clear,close all 多 

warning off % Hu 

feature jit off $ Jn Ws 

period = 3; を 计算 周期 ,为 整数 ，1<= period <= 


1oad('data000001 .mat') 


openprice = data000001(:,1)' $ 开盘 价 

highprice = data000001(:,2)'; に 最 高 价 

lowprice = data000001(:,3)'; $ 最 低 价 

closeprice = data000001(:,4)'; を 收盘 价 

[SI com] = SI (closeprice, highprice, lowprice, openprice); o 摆动 指标 SI 


figure (2) 

subplot (121) ,plot (closeprice', MEI 
xlabel ('t") ;ylabel(! 收 盘 价 人 

subplot (122), plot (SI com', | zh 
xlabel('t');ylabel( ( 舞 効 指 株 ST") 


输出 图 形 如 图 5-19 所 示 。 
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图 5-19 大 数据 下 的 摆动 指标 SI 求解 


如 图 5-19 所 示 ， 在 股票 数据 出 现 异 常 变 化 时 ， 摆 动 指标 31 能 够 很 好 地 预测 ， 此 时 摆动 指标 31 值 波动 距离 变 大 ， 并 且 增 幅 很 大 ， 投 资 者 应 该 谨慎 操作 。 


5.48 ”动向 速度 比率 指标 


动向 速度 比率 指标 SRDM 是 一 种 衡量 动向 速度 比率 的 指标 ， 采 用 股票 的 最 高 价 highprice、 最 低 价 lowprice， 加 以 移动 平均 值 SMA 计 算 ， 以 判断 股票 的 变化 趋势 ， 从 而 给 出 相应 的 买 入 和 卖 出 信号 。 


一 般 情况 下 ， 动 向 速度 比率 指标 SRDM 大 于 80 时 ， 在 接 下 来 的 股票 价格 变化 中 ， 如 果 动 向 速度 比率 指标 SRDM 逐 渐 小 于 80， 则 股票 价格 下 跌 可 能 性 增 大 ， 投 资 者 应 该 适当 减仓 ， 当 动向 速度 比率 指标 
SRDM 小 于 20 时 ， 在 接 下 来 的 股票 价格 变化 中 ， 如 果 动 向 速度 比率 指标 SRDM 逐 渐 大 于 20， 则 股票 价格 上 涨 可 能 性 增 大 ， 投 资 者 应 该 适当 加 仓 。 


动向 速度 比率 指标 SRDM 的 计算 公式 如 下 。 


(1) 计算 中 间 变 量 DMZ， 具 体 如 下 : 


0, highprice, + lowprice, < highprice, , + lowprice, , 
DMZ, = 
| max (|highprice, ー highprice, |, lowprice, — lowprice, , )， others 
(2) 计算 中 间 变 量 DMF， 具 体 如 下 : 
0, highprice, + lowprice, = highprice, , + lowprice, , 


DMF = 
max (|highprice, — highprice, , 


lowprice, — lowprice, , ). others 


, 


(3) 计算 中 间 量 ADMZ， 具 体 如 下 : 


ADMZ = SMA(DMZ,10) 


其 中 ，10 表 示 计 算 周期 period=10。 


(4) 计算 中 间 量 ADMF， 具 体 如 下 : 


ADMF = SMA(DMZ,10) 


其 中 ，10 表 示 计 算 周期 period=10。 


(5) 计算 动向 速度 比率 指标 SRDM， 具 体 如 下 : 


ADMZ — ADMF 


, ADMZ » ADMF 


ADMZ 
SRDM = 0, 
ADMZ - ADMF 


ADMZ = ADMF 


. ADMZ < ADMF 


ADMF 


编写 动向 速度 比率 指标 SRDM 函 数 程序 如 下 : 


unction [SRDM com] = SRDM(highprice 1owpr1Ce) 
函数 功能 : 动向 速度 比率 指标 SRDM 
S 5 s 即 为 行 向 量 
A: 
highprice- 为 输入 的 最 高 价 
lowprice- 为 输入 的 最 低 价 
peirod- 计 算 周 期 


出 : 
动向 速度 比率 指标 SRDM 


输 


de oe de de op de de oe Hh 


HP comenan*ones (size (highprice, 1) , size (highprice, 2) ) ; gs 初始 化 
LP com=nan*ones (size (highprice,1),size(highprice,2)); を 初始 化 
DMZ com=nan*ones (size (highprice, 1) , size (highprice,2)); る 初始 化 
DMF com-nan*ones (size (highprice, 1 ) , size (highprice,2)); $ 初始 化 
ADMZ com-nan*ones (size (highprice, 1) , size (highprice,2)); & 初始 化 
ADMF com-nan*ones (size (highprice, 1 ) , size (highprice, 2) ) : s 初始 化 
SRDM com=nan*ones (size (highprice, 1) , size (highprice, 2)); % 初始 化 
HP com(:,2:end) = highprice(:,1:end-1); % 昨日 最 高 价 

LP com(:,2:end) = lowprice(:,1:end-1); を 昨日 最 低 价 


for j=1:size (highprice,1) 
for i-2:size(highprice,2) 

if highprice (j,i)*lowprice (j,i)«-highprice (j,i-1)-4lowprice (j,i-1) 
DMZ com(j,i)-0; 
DMF com(j,i)-max (abs (highprice(j,i)-highprice(j,i-1)),abs(lowprice (j,i)-lowprice(j,i-1)) ); 

else 
DMZ com(j,i)-max (abs (highprice(j,i)-highprice(j,i-1)),abs(lowprice (j,i)-lowprice(j,i-1)) ); 
DMF com(j,i)-0; 


end 
end 
end 
ADMZ com = SMA(DMZ com,10); る 移动 平均 值 
ADMF com = SMA(DMF com, 10); % 移动 平均 值 


名 ”动向 速度 比率 指称 SRDM 
for j-1:size(ADMZ com,1) 
for i-1:size(ADMZ com,2) 
if ADMZ com(],1) >ADME com(j,i) 
SRDM com(j,i) = (ADMZ com(j,i)-ADMF com(j,i))./ADMZ com(j,i); 
elseif ADMZ com(j,i)--ADMF com(j,i) 
SRDM com(j,i) = 0; 
elseif ADMZ com(],1) <ADME com(j,i) 
SRDM com(j,i) = (ADMZ com(j,i)-ADMF com(j,i))./ADMF com(j,i); 
end 
end 
end 
SRDM com = 100*SRDM com; 


编写 程序 调用 该 动向 速度 比率 指标 SRDM 函 数 程序 如 下 : 


clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off る 消 警告 
feature jit off $ 加 速 通道 


load('data000001.mat') 


openprice = data000001(:,1)'; を 开盘 价 

highprice = data000001(:,2)'; を 最 高 价 

lowprice = data000001(:,3)'; $ 最 低 价 

closeprice = data000001(:,4)'; $ 收盘 价 

[SRDM com] = SRDM(highprice, lowprice); $ 动向 速度 比率 指标 SRDM 
figure (2) 


subplot (121),plot (highprice', '.-'); 
xlabel('t');ylabel (' 最 高 价 ') 

subplot (122) ,plot (SRDM com','.-'); 
xlabel ('t') ;ylabel(' 动 而 速度 比率 指标 SRDM' ) 


输出 图 形 如 图 5-20 所 示 。 
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5-20 ”大 数据 下 的 动向 速度 比率 指标 SRDM 求 解 
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如 图 5-20 所 示 ， 动 向 速度 比率 指标 SRDM 位 于 -100 ~ 100 之 间 ， 当 动向 速度 比率 指标 SRDM 大 于 80 时 ， 而 后 动向 速度 比率 指标 SRDM 又 下 破 到 80， 则 表明 股票 下 跌 可 能 性 增 大 ;， 当 动向 速度 比率 指标 
SRDM 人 小 于 -80 时 ， 而 后 动向 速度 比率 指标 SRDM 又 上 升 到 -80 时 ， 则 表明 股票 上 涨 可 能 性 增 大 。 


如 果 动向 速度 比率 指标 SRDM 人 小 于 20 时 ， 并 且 动 向 速度 比率 指标 SRDM 向 上 突破 20 时 ， 此 时 股票 反弹 机 会 比较 大 ， 投 资 者 可 以 适当 加 仓 ; 如果 动向 速度 比率 指标 SRDM 大 于 -20 时 ， 并 且 动 向 速度 比率 指 
标 SRDM 向 上 突破 -20 时 ， 此 时 反弹 机 会 也 比较 大 ， 投 资 者 也 可 以 适当 加 仓 。 


5.19 引力 线 指标 


引力 线 指标 UDL 是 根据 不 同 period 周 期 下 的 股票 收盘 价 closeprice 的 移动 平均 值 作为 股票 价格 变化 的 衡量 算 子 。 引 力 线 指标 UDL 较 常用 的 计算 周期 period 为 3 天 、7 天 、15 天 、30 天 ， 并 且 不 同 的 设 定 周 
期 ， 计 算出 来 的 引力 线 指标 UDL 曲 线 平滑 程度 不 同 。 引 力 线 指 标 UDL 是 一 种 短期 预测 方法 。 


引力 线 指标 UDL 计 算 公式 如 下 : 


SMA (closeprice, , periodl)+ SMA (closeprice,, period2) + 
SMA (closeprice, , period3)+ SMA (closeprice, , period4) 


UDL, 
4 


其 中 ，SMA 为 移动 平均 值 函 数 ，period1、period2、period3、period4 分 别 相应 的 计算 周期 ， 且 为 整数 ， 其 大 小 小 于 样本 长 度 。 


编写 相应 的 UDL 程 序 如 下 : 


function [UDL com] = UDL(closeprice, periodl,period2,period3,period4) 


e 画数 功能 : SDUAMBERUDL ー I 
% "o s ma Das 即 为 行 向 量 

$s 输 

$ closeprice- 2 OM 

$ peirod1- 计 算 

$ peirod2- 時 

peirod4- UNU 

5 EET . 

UDL com-nan*ones (size (closeprice, 1),size(closeprice,2)); る 初始 化 


る 引力 线 指标 UDL 
UDL com = (SMA(closeprice,periodl)-*SMA (closeprice, period2) http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... 
SMA (closeprice, period3) +SMA (closeprice, period4) ) ./4; 


简单 移动 平均 值 SMA 函 数 程序 如 下 : 


function sma com = SMA(price, period) 


函数 功能 ，SMR -简单 移动 平均 值 


š MA: 

る Price- 为 输入 的 数据 矩阵 
る Period- 为 周期 ，>= 1 
% 输出 : 


sma com: SMA -简单 移动 平均 值 
sma com-nan*ones (size (price,1), size (price, 2) ) る 初始 化 
if length (price) >period 2c 行 变量 | 而 长度 是 大 于 period 
for j-1:size (price, 1) (O8— 行 一 个 时 间 序 列 数 据 
for i-period:length (price) る 从 period 周 期 开始 计算 
sma com(j,i)-mean (price (j, 4cpériodél :i)); % 求 平均 值 


de dp 


编写 程序 调用 如 下 : 


clc,clear,close all る 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 

feature jit off s 加 速 通道 

periodl 数 ，1<= period <= N 
period2 Ü, 1«- period <= N 
Period3 , 1<= period <= N 
period4 数 ，1<= period <= N 
load('data000001.mat"') 

openprice = data000001(:,1)'; を 开盘 价 

highprice = data000001(:,2)'; を 最 高 价 

lowprice = data000001(:,3)'; & 最 低 价 

closeprice = data000001(:,4)'; % 收盘 价 

[UDL com] = UDL(closeprice,periodl,period2,period3,period4); % 引力 线 指标 UDL 
figure (2) 

subplot (121),plot (closeprice', '.-');xlabel 


t');ylabel ("kiti ') 
); 


(' 
subplot(122),plot(UDL com','.-'); xlabel('t');Yylabel(' 引 力 线 指标 UDL') 


输出 图 形 如 图 5-21 所 示 。 
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图 5-21 大 数据 下 的 引力 线 指标 UDL 求 解 
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如 图 5-21 所 示 ， 引 力 线 指标 UDL 较 好 地 平滑 了 实际 的 数据 ， 并 且 引 力 线 指标 UDL 一 定 程度 上 反映 了 短期 的 股票 走势 ， 并 且 具 有 较 好 的 参考 价值 。 


5.20 布 林 极 限 宽 度 指标 


布 林 极限 宽度 指标 WIDTH 表 示 布 林 线 开 


大 小 的 宽度 ， 利 用 布 林 极 限 宽度 指标 WIDTH 进 行 股票 的 上 涨 下 跌 判 断 ,3 


EERI 


居 布 林 极限 宽度 指标 WIDTH 大 小 进行 判断 。 布 林 极限 宽度 指标 WIDTH 曲 线 取 值 


较 小 ,一般 在 0~ 1 之 间 。 一 般 认 为 ， 布 林 极 限 宽 度 指标 WIDTH 越 小 ， 股 票 上 涨 的 力度 也 就 越 大 ， 当 布 林 极 限 宽度 指标 WIDTH 越 大 ， 那 么 股票 下 跌 的 可 能 性 也 将 越 大 ， 此 时 投资 者 应 该 谨慎 操作 。 


布 林 极限 宽度 指标 WIDTH 计 算 公式 如 下 : 


(1) 计算 收盘 价 的 移动 平均 值 ， 具 体 如 下 : 


MID, = SMA (closeprice, , period ) 


其 中 ，period 为 计算 周期 ， 由 用 户 指定 ， 


(2) 计算 布 林 极 限 宽度 上 限 ， 具 体 如 下 : 


为 整数 且 其 大 小 小 


样本 长 


max W, = MID, + w- std (closeprice,, period) 


其 中 ，period 为 计算 周期 ， 由 用 户 指定 ， 


(3) 计算 布 林 极 限 宽 度 下 限 ， 具 体 如 下 : 


为 整数 且 其 大 小 小 


样本 长 度 ; w 是 用 户 设 定 的 权 值 系数 ， 一 般 为 整数 。 


minW, = MID, — w: std (closeprice,, period ) 


其 中 ，period 为 计算 周期 ， 由 用 户 指定 ， 


为 整数 且 其 大 小 小 


(4) 则 布 林 极限 宽度 指标 WIDTH 计 算 如 下 : 


WIDTH, = 


样本 长 


MID 


7 


编写 相应 的 布 林 极限 宽度 指标 WIDTH 函 数 程序 如 下 : 


function [WIDTH com] = WIDTH (closeprice, period, w) 


% 函数 功能 ， 布 林 极限 宽度 指标 WIDTH 


$ closeprice: 在 列 向 量 上 随時 间 变 化 ， 即 为 行 向 量 


% 输入 : 
$ closeprice- 为 输入 的 收盘 价 


Et; w 是 用 户 设 定 的 权 值 系数 ， 一 般 为 整数 。 


max W, — min W, 


Peirod- 计 算 周期 


de de oe 


布 林 极 限 宽度 指标 WIDTH 
WIDTH com-nan*ones (size (closeprice, 1), size (closeprice,2)); % 初始 化 
MID com-nan*ones (size (closeprice, 1) , size (closeprice,2)); % 初始 
maxW com-nan*ones (size (closeprice, 1),size (closeprice,2)); る 初 始 化 
minW com-nan*ones (size (closeprice, 1),size (closeprice,2)); を 初始 化 
る 布 林 极 限 宽度 指标 WIDTH 
MID com = SMA (closeprice, period); 
for j=1:size (closeprice, 1) 
for i=period+l:size (closeprice, 2) 
maxW com(j,i)-MID com(j,i)*w*std( closeprice(j,i-period:i) ); % 布 林 极限 宽度 上 限 
minW com(j,i)-MID com(j,i)-w*std( closeprice(j,i-period:i) );  $ 布 林 极限 宽度 下 限 
end 
end 
WIDTH com = (maxW com-minW com)./MID com; を 布 林 极限 宽度 指标 WIDTH 
编写 程序 调用 布 林 极 限 宽度 指标 WIDTH 函 数 程序 如 下 : 
clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 
feature jit off を 加 速 通道 
period = 3; % 计算 周期 ,为 整数 ，1<= period <= N 
w = 2; s ANE 
load ('data000001.mat') 
openprice = data000001(:,1)'; 2 开盘 价 
highprice = data000001(:,2)'; $ 最 高 价 
lowprice = data000001(:,3)'; s 最低 
closeprice = data000001(:,4)'; % 收盘 价 
[WIDTH com] = WIDTH (closeprice, period, w) ; る 布 林 极限 宽度 指标 WIDTH 
figure (2) 
subplot (121) ,plot (closeprice','.-'); 
xlabel ('t') ;ylabel(' 收 盘 价 ') 
subplot (122) ,plot (WIDTH com','.-'); 
xlabel ("て ") ;ylabel (' 布 林 极限 宽度 指标 WIDTH') 
输出 图 形 如 图 5-22 所 示 。 
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图 5-22 ”大 数据 下 的 布 林 极 限 宽度 指标 WIDTH 求 解 


如 图 5-22 所 示 ， 布 林 极 限 宽度 指标 WIDTH 较 好 地 反映 了 股票 的 整体 走势 ， 前 期 布 林 极 限 宽 
地 控制 好 仓位 。 


第 2 篇 MATLA 


“第 6 章 ”BP 神经 网 络 工具 箱 上 证 指数 预测 

“ 第 7 章 BP 神经 网 络 工具 箱 多 指标 预测 

・ 第 8 章 RBF 神经 网 络 多 指标 预测 

- 第 0 章 ” Hopfield 神经 网 络 多 指标 预测 

.第 10 章 马尔 可 夫 (Markov) 链 上 证 指数 预测 


“第 11 章 ”灰色 理论 下 的 上 证 指数 预测 


度 指标 WIDTH 宽 度 较 小 ， 适 合 建仓 : 后 期 布 林 极限 宽度 指标 WIDTH 较 大 时 ， 此 时 投资 者 应 当 谨 慎 ， 应 该 合理 


B 机 器 学 习 算 法 应 用 设计 


: 第 12 章 ”指数 平滑 下 的 上 证 指数 预测 
- 第 13 章 “支持 向 量 机 SVM 下 的 涨 跌 预测 
“第 14 章 Nett (Bayes) 网 络 多 指标 预测 


“第 15 章 ”Pareto 多 目标 优化 分 析 


第 6 章 ”BP 神经 网 络 工具 箱 上 证 指数 预测 


BP (Back Propagation) 神经 网 络 是 一 种 神经 网 络 学 习 算法 ， 其 由 输入 层 和 中 间 层 和 输出 层 组 成 的 阶层 型 神经 网 络 ， 中 间 层 可 扩展 为 多 层 。 相 邻 层 之 间 各 神经 元 进行 全 连接 ， 而 同 层 各 神经 元 之 间 无 
连接 ， 网 络 按照 负 反 馈 方式 进行 自学 习 ， 按 期 望 输出 与 实际 输出 误差 减 小 的 方向 移动 ， 然 后 从 输出 层 经 各 中 间 层 逐 层 修正 各 连接 权 ， 回 到 输入 层 。 此 过 程 反复 交替 进行 ， 直 至 网 络 的 全 局 误差 趋向 给 定 的 极 
小 值 ， 即 完成 学 习 的 过 程 。 


61 ”BP 神经 网 络 模型 及 其 基本 原理 


DE.Rumelhart 和 儿 .McClelland 提 出 了 一 种 利用 误差 反 向 传播 训练 算法 的 神经 网 络 ， 简 称 BP 网 络 ， 是 一 种 经 典 实 ， 
理 ， 请 阅读 《On learning the past tense of English verbs》 一 书 。 


的 前 馈 网络 ， 系 统 地 解决 了 多 层 中 隐 含 单元 连接 权 的 学 习 问 题 ， 具 体 BP 神 经 网 络 原 


如 果 网 络 的 输入 节点 数 为 M、 输 出 节点 数 为 N， 则 BP 神 经 网 络 可 看 成 是 从 M 维 欧式 空间 到 N 维 欧式 空间 的 映射 。 这 种 映射 是 高 度 非 线性 的 ， 其 主要 用 于 以 下 几 方 面 。 


: 模式 识别 与 分 类 : 用 于 文字 OCR、 图 像 的 识别 和 图 像 分 类 等 。 


“ 函数 逼近 : 用 于 非 线性 控制 系统 的 建 模 和 各 种 非 线性 函数 的 逼近 等 。 


・ 数据 压缩 : 用 于 图 像 的 编码 压缩 和 存储 等 。 


` 数据 预测 : 股票 预测 ， 温 温度、 酸碱度 预测 等 。 


BP 神 经 网 络 结构 如 图 6-1 所 示 。 


X1 Yl 


输入 层 隐 含 层 输出 层 


6-1 BP 神经 网 络 结构 


BP 学 习 算 法 的 基本 原理 是 梯度 最 速 下 降 法 。 它 的 中 心思 想 是 调整 网 络 层 的 权 值 ， 使 整个 网 络 总 误差 最 小 ， 也 就 是 采用 梯度 下 降 广 法， 求解 期 望 输出 和 实际 输出 的 最 小 平方 误差 值 的 过 程 。 网 络 的 学 习 过 
程 是 一 种 误差 向 后 传播 ， 再 不 断 更 新 修正 权 值 和 立 值 系数 的 过 程 。 


多 层 网 络 运用 BP 学 习 算 法 时 ， 实 际 上 包含 了 正 向 和 反 向 传播 两 个 阶段 。 在 正 向 传播 过 程 中 ， 输 入 信息 从 输入 层 经 隐 含 层 逐 层 处 理 ， 并 传 向 输出 层 ， 每 一 层 神 经 元 的 状态 只 影响 下 一 层 神经 元 的 状态 。 如 


果 在 输出 层 不 能 得 到 期 望 输出 ， 则 转 入 反 向 传播 ， 将 误差 信号 沿 原来 的 连接 通道 返回 ， 通 过 修改 各 层 神经 元 的 权 值 和 阔 值 ， 使 输出 误差 信号 最 小 。 除 了 输入 层 的 节点 外 ， 隐 含 层 和 输出 层 节点 的 输入 是 前 一 
层 节点 输出 的 加 权 和 。 每 个 节点 的 激活 程度 由 它 的 输入 信号 、 激 活 函 数 和 节点 的 偏 置 来 决定 。 


对 于 BP 神 经 网 络 的 说 明 ， 各 类 书籍 比比 皆 是 ， 然 而 在 实际 应 用 过 程 中 ， 或 许 我 们 根本 不 需要 懂 其 原理 ， 只 需要 参阅 一 下 BP 神 经 网 络 的 如 何 使 用 即 可 ， 因 为 神经 网 络 本 身 就 是 一 个 黑匣子 ， 然 后 通过 设置 


的 参数 运行 ， 得 到 想 要 的 结果 。 对 于 BP 神经 网 络 的 设置 ， 权 值 和 阅 值 的 设置 显得 尤为 关键 ,其 可 以 设置 为 一 个 定 值 ， 也 可 以 采用 工具 箱 默 认 设 置 ， 进 而 由 系统 动态 地 调整 权 值 和 阅 值 。 


6.2 MATLAB BP 神经 网 络 工 具 箱 


在 MATLAB 中 常用 的 前 馈 型 BP 网 络 的 转移 函数 有 logsig、tansig 和 purelin。 当 网 络 的 最 后 一 层 采 用 曲线 函数 时 ， 输 出 被 限制 在 一 个 很 小 的 范围 内 ， 如 果 采 用 线性 函数 (purelin) 则 输出 可 为 任意 值 。 
logsig、tansig 和 purelin 这 3 个 函数 是 BP 网 络 中 最 常用 到 的 函数 ， 但 是 如 果 需 用 额外 的 转移 函数 ， 用 户 也 可 以 自 定义 函数 。 


在 BP 网 络 中 ， 状 态 转移 函数 可 求 导 是 非常 重要 的 ，tansig、logsig 和 purelin 都 有 对 应 的 导 函数 dtansig、dlogsig 和 dpurelin。 对 于 转移 函数 的 导 函 数 ，MATLAB 工 具 箱 提供 带 字符 "deriv" 的 转移 函数 : 


tansig('deriv') 
ans = dtansig 


其 中 ，tansig 函 数 如 下 : 


function a = apply (n,param) 
$ Copyright 2012 The MathWorks, Inc. 
a=2 ./ (1 + exp(-2*n) - 1; 


logsig 函 数 如 下 : 


function a = apply (n,param) 
$ Copyright 2012 The MathWorks, Inc. 
a=1 ./ (1 + exp(-n)); 


purelin 函 数 如 下 : 


function a = apply (n,param) 
SPURELIN.APPLY 

$ Copyright 2012 The MathWorks, Inc. 
a = n; 


(1) 训练 前 馈 网 络 的 第 一 步 是 建立 网 络 对 象 。 


函数 newff 建 立 一 个 可 训练 的 前 馈 网 络 ，MATLAB 工 具 箱 中 的 调用 格式 如 下 : 


net = newff(P, T, S, SPREAD) 


参数 说 明 : 


P 是 一 个 Rx2 的 矩阵 ， 用 于 定义 R 个 输入 向 量 的 最 小 值 和 最 大 值 ; T 是 一 个 包含 每 层 神 经 元 个 数 的 数组 ; 是 包含 每 层 用 到 的 转移 函数 名 称 的 细胞 数组 ; SPREAD 是 用 到 的 训练 函数 的 名 称 。 


函数 newff 例 子 如 下 : 


net=newff ([0 2; 1 5], [5,1], ('tansig', 'purelin'), 'traingd'); 


这 个 命令 建立 了 网 络 对 象 并 且 初 始 化 了 网 络 权重 和 偏 置 ， 接 下 来 该 网 络 就 可 以 进行 训练 了 。 


在 训练 前 馈 网 络 之 前 ， 权 重 和 偏 置 一 般 需要 初始 化 。 初 始 化 权重 和 偏 置 的 工作 用 命令 init 来 实现 。int 函 数 接收 网 络 对 象 并 初始 化 权重 和 偏 置 后 返回 网 络 对 象 。 


MATLAB 工 具 箱 中 init 函 数 的 调用 格式 如 下 : 


net = init(net) 


参数 说 明 : 


net 是 输入 的 神经 网 络 ， 可 以 通过 设 定 网 络 参 数 net.initFcn 和 net.layerfi}.initFcn 来 初始 化 一 个 给 定 的 网 络 。net.initFcn 用 来 决定 整个 网 络 的 初始 化 函数 。 前 馈 网 络 的 默认 值 为 initlay， 它 允许 每 一 层 用 
单独 的 初始 化 函数 。 


初始 化 init 函 数 被 newff 函 数 所 调用 。 因 此 当 网 络 创建 时 ， 它 根据 默认 的 参数 自动 初始 化 。init 函 数 不 需要 单独 调用 ， 只 需要 要 重新 初始 化 权重 和 偏 置 或 者 进行 初始 化 自 定义 即 可 。 可 以 用 rands 初 始 化 第 
一 层 的 权重 和 偏 置 ， 具 体 如 下 : 


net.layers(1).initFcn = 'initwb'; 
net.inputWeights(1,1).initFcn = 'rands'; 
net.biases(1,1).initFcn = 'rands'; 
net.biases(2,1).initFcn = 'rands'; 

net = init(net); 


(2) 网 络 模拟 (sim) 。 


函数 sim 模 拟 一 个 网 络 ， 调 用 格式 如 下 : 


A= sim(net, P) 


参数 说 明 : net 是 函数 sim 接 收 的 网 络 对 象 ; P 是 接收 的 网 络 输入 ;A 为 返回 的 网 络 输出 a。 


>> net=newff([0 2; 1 5],[5,1],('tansig', 'purelin'), 'traingd'); 
警告 : NEWFF used in an obsolete way. 
> In nnerr.obs use (line 17) 
In newff»create network (line 126) 
In newff (line 101) 
See help for NEWFF to update calls to the new argument list. 


>> p = [1;1;7;4;0;6;3;0;8; 7]; 
>> a = sim(net,p) 


-0.6292 


调用 sim 遂 数 来 计算 一 个 同步 输入 3 向 量 网 络 的 输出 ， 编 程 如 下 : 


>> p = [1 1 7;4 0 6]; 
>> a=sim(net,p) 


a= 


-0.2070  -1.4923 -0.8027 


(3) 网 络 训练 。 
一 旦 网 络 加 权 和 偏差 被 初始 化 ， 网 络 就 可 以 开始 训练 了 。 我 们 能 够 训练 网 络 来 做 函数 近似 、 预 测 、 模 式 分 类 、 识 别 等 。 网 络 训练 处 理 需要 网 络 输入 p 和 目标 输出 t。 在 训练 期 间 网 络 的 加 权 和 偏差 不 断 地 
把 网 络 性 能 函数 net.performFcn 减 少 到 最 小 。 


前 馈 网 络 的 默认 性 能 函数 是 均 方 误差 (mse) ， 即 网 络 输出 和 目标 输出 t 之 间 的 均 方 误差 。 


误差 梯度 主要 由 误差 反 向 传播 决定 ， 其 要 通过 网 络 实现 反 向 计算 。 


MATLAB 自 带 函 数 train 用 于 训练 一 个 神经 网 络 ， 其 调用 格式 如 下 : 


[net, R] = train(net, X, T) 


参数 说 明 : net 为 接收 的 初始 网 络 对 象 ，X 为 网 络 输入 ; T 为 目标 输出 ; 返回 结果 中 的 net 为 训练 后 的 网 络 ，R 为 训练 后 的 网 络 的 标记 。 


63 ”BP 神经 网 络 执行 流程 


对 于 BP 神 经 网 络 而 言 ， 输 入 信号 经 输入 层 输入 ， 通 过 隐 含 层 内 部 的 计算 ， 由 输出 层 输 出 ， 输 出 信号 与 期 望 输出 值 相 比较 ， 计 算 其 误差 值 ， 再 将 误差 信号 反 向 由 输出 层 通过 隐 含 层 处 理 后 向 输入 层 传播 。 
在 这 个 过 程 中 ， 误 差 通过 梯度 下 降 算法 ， 以 此 重新 调整 神经 元 内 部 权 值 。 此 过 程 完 成 后 ， 输 入 信号 再 次 由 输入 层 输 入 网 络 ， 重 复 上 述 过 程 。 这 种 信号 正 向 传播 与 误差 反 向 传播 的 各 层 权 值 调 整 过 程 周而复始 
地 进行 着 ， 直 到 BP 神 经 网 络 输 出 的 误差 下 降 到 用 户 可 接受 的 程度 ， 或 训练 到 到 程序 预先 设 定 的 学 习 次 数 为 止 。 权 值 不 断 更 新 的 过 程 就 是 网 络 的 学 习 训练 过 程 。 


如 


具体 的 流程 如 图 6-2 所 示 。 


D 


初 始 化 


给 定 输入 问 量 和 目标 输出 
求 陷 含 层 、 输 出 层 各 节点 输出 


求 目 标 值 与 实际 输出 的 偏差 


计算 反 同 误差 


64 ”基于 BP 网 络 的 上 证 指数 预测 


本 节 讲 解 采用 BP 神经 网 络 工具 箱 进行 上 证 指数 的 预测 分 析 。 


(1) 上 证 指数 绘制 图 形 ， 具 体 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 

feature jit off % 加 速 通道 

%% 导入 数据 

る load('data.mat') s 加 载 数据 

load('price.mat') % 加 载 数据 

data = closeprice; % 收盘 价 

=1 : 1ength (data) ; を 输入 为 数据 长 度 ， 等 效 于 时 间 
y-data; $ 上 证 指数 

plot (x, y) 


由 此 得 到 如 图 6-3 所 示 的 图 形 。 


(2) 归 一 化 上 证 指数 数据 如 下 : 


%% 归 一 化 
x-mapminmax (Xx); る X 归 一 化 
y=mapminmax (y) ' ; を y 归 一 化 
plot (x, y) 


得 到 如 图 6-4 所 示 的 图 形 。 
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图 6-3 ”上 证 指数 图 形 
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图 6-4 上 证 指数 归 一 化 图 


(3) 用 时 间 长 度 的 归 一 化 数值 作为 BP 神 经 网 络 的 输入 ， 归 一 化 的 上 证 指数 值 作 为 BP 神 经 网 络 的 输出 ， 即 输入 层 节点 数 为 1， 输 出 层 节点 数 为 1， 隐 藏 层 节点 数 由 读者 自己 设 定 。 


%% 网 络 结构 


inputnum = 1; % 输入 层 节点 数 
hiddennum = 10; S 隐藏 层 节点 数 
outputnum = 1; % 输出 层 节点 数 


net=newff (minmax (y) , [hiddennum, outputnum], ('tansig', 'purelin'], 'traingdm'); 
を 新 建 BP 网 格 


る 当前 输入 层 权 值 和 阔 值 
inputWeights-net.IW(1,1); を $ 
inputbias=net.b{1}; % 输入 的 阔 值 


る 当前 网 络 层 权 值 和 阐 值 


layerWeights-net.LW(2,1); % 输出 层 的 权 值 
layerbias-net.b(2); EEUU I 
s 设置 训练 参数 
net.trainParam.show = 50; 名 显示 间隔 
net.trainParam.lr = 0.01; % 学 习 率 
net.trainParam.mc = 0.9; を 动量 因子 
net.trainParam.epochs = 1000; % 学 习 次 数 
net.trainParam.goal = 1e-3; る 学 习 目 标 


(4) 设 定好 神经 网 络 结构 后 ， 接 下 来 进行 神经 网 络 的 预测 ， 具 体 如 下 : 


%% 网 络 预测 
$ 调用 TRAINGDM 算法 训练 BP 网 络 


[net, tr]=train(net, x, y); 


S 对 BP 网 络 进行 仿真 


A train = sim(net,x); 


$ 计算 仿真 误差 


Error = y - A train; 


% 均 方 误差 
disp ' 网 络 训练 均 方 误差 ' 


MSE = mse (Error) 


figure (1) 

plot (y, 'ro--', 'linewidth', 2) 

hold on 

plot(A train, 'bs--','linewidth',2) 
legend(' 实 际 值 ', " 給 出 値 ") 


运行 程序 得 到 如 图 6-5 所 示 的 BP 神 经 网 络 训练 图 
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[Regression | (plotrogression] 


| i | {plotregression) 
Plot Interval: g-— = NUES 


e Training neural network... w〆 Maximum epoch reached. 


| @ stop Training | Q cancal | 


Hj6-5 BP 神 经 网 络 训练 图 


运行 程序 得 到 如 图 6-6~ 图 6-8 所 示 的 预测 结果 。 
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图 6-6 ”训练 误差 迭代 图 
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图 6-7 训练 状态 图 


得 到 相应 的 上 证 指数 预测 结果 如 图 6-9 所 示 。 


4. Neural Network Training Regression [pletregrassion], Epoch 1... |- | El P= 
IHO SRE SEW EAU ITAD sH(p) 商品 (WW #*EBH(HD Ea 


Training: Rz0.69695 


Output -= 0.57*Target + -0.23 


4 0.5 Ü 05 1 
Target 


图 6-8 ”数据 拟 合 结果 


Me aue 1 
文件 SRE SEV) 插入 四 ”工具 中 SMO EHOW)  8B85(H) 
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图 6-9 ”上 证 指数 预测 结果 


采用 线性 神经 网 络 预测 的 上 证 指数 波动 情况 根本 不 能 较 好 地 逼近 真实 值 ， 预 测 误差 如 图 6-10 所 示 。 


4 Figure 2 
文件 5 S50 EEV EA) IAO SMO SOW ”帮助 (H) 
de bk << os.edwx-unumug 


预测 误差 


500 4000 4500 2000 2500 3000 3500 4000 4500 5000 


图 6-10 ”预测 误差 
由 于 上 证 指数 无 法 用 多 元 线性 回归 分 析 ， 因 此 预测 误差 还 是 很 大 。 
具体 的 基于 BP 网 络 的 上 证 指数 预测 完整 代码 如 下 : 
clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off 3 取消 警告 
feature jit off $ 加 速 通道 
%% 导入 数据 
$ load('data.mat!) % 加 载 数据 
load('price.mat') % 加 载 数据 
data = closeprice; る 收盘 价 
x-l:length (data); % 输入 为 数据 长 度 ， 等 效 于 时 间 
y-data; $ 上 证 指数 
%% 归 一 化 
x-mapminmax (x); を x 归 一 化 
y=mapminmax (y) '; を y 归 一 化 
%% 网 络 结构 
inputnum = 1; % 输入 层 节点 数 
hiddennum = 10; % 隐藏 层 节点 数 
outputnum = 1; % 输出 层 节 点 数 
net-newff (minmax (y) , [hiddennum, outputnum], ('tansig', 'purelin'], 'traingdm'); $ 新 建 BP 网 格 
% 当前 输入 层 权 值 和 阔 值 
inputWeights-net.IW(1,1); を 输入 的 权 值 
inputbias-net.b(1); S HA BL 
を MA EBURA RNE 
layerWeights-net.1W(2,1); % 输出 层 的 权 值 
layerbias-net.b(2); S 输出 层 的 阔 值 
s 设置 训练 参数 cm 
net.trainParam.show = 50; $ 显示 间隔 
net.trainParam.lr = 0.01; $ 学习 率 
net.trainParam.mc = 0.9; $ 动量 因子 
net.trainParam.epochs = 1000; $ 学 习 次 数 
net.trainParam.goal = 1e-3; % 学 习 目 标 
%% 网 络 预测 


% 调用 TRAINGDM 算法 训练 BP 网 络 
[net, tr]-train(net, x, y); 


S 对 BP 网 络 进行 仿真 


A train = sim(net,x); 


$ 计算 仿真 误差 


Error = y - A train; 


% 均 方 误差 
disp ' 网 络 训练 均 方 误差 ' 
MSE = mse (Error) 


figure (1) 

plot (y, 'ro--', '1inewidth',2) 

hold on 

plot(A train, 'bs--', 'linewidth',2) 
legend(' 实 际 值 ', ' 输 出 值 ') 


figure(2), 
plot (Error) 
title(' 预 测 误差 ') 


6.5 ”改进 分 析 


BP 神 经 网 络 采 用 的 神经 网 络 状 态 传递 函数 为 {tansig'，'purelin }， 误 差 反 馈 函 数 为 'traingdm'，purelin 函 数 不 能 满足 要 求 。 


本 节 采 用 {tansig'，'tansig } 作 为 网 络 传递 函数 ，'trainlm 作为 误差 反馈 学 习 函 数 ， 进 行 网 络 的 训练 和 预测 ， 具 体 代 码 如 下 : 


clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 

feature jit off る 加 速 通道 

%% 导入 数据 

$ load('data.mat') a 加 载 数据 

load('price.mat') を 加 载 数据 

data = closeprice; LEE 

x-1:length (data); % 输入 为 数据 长 度 ， 等 效 于 时 间 

y-data; も 上 证 指数 

%% 归 一 化 

x-mapminmax (x); 名 x 归 一 化 

y=mapminmax (y'); を y 月 一 化 

%% 网 络 结构 

inputnum = 1; を 输入 层 节点 数 

hiddennum = 20; を 隐藏 层 节点 数 

outputnum = 1; % 输出 层 节 点 数 

net-newff (minmax (y) , [hiddennum, outputnum] , {'tansig', 'tansig'), 'trainlm');  $ 新 建 BP 网 格 


$ 当前 输入 层 权 值 和 阔 值 

inputWeights-net.IW(1,1); % 输入 的 权 值 
inputbias-net.b(1); を A BUL 
HELLE EIE 

layerWeights-net.l1W(2,1); 输出 层 的 权 值 
layerbias-net.b(2); Art RO BUR 


% 设置 训练 参数 


$ 


net.trainParam.show = 50; 
net.trainParam.lr - 0.01; 
net.trainParam.mc = 0.9; 
net.trainParam.epochs - 1000; 
net.trainParam.goal = le-7; 


ss 网 络 预测 
% 调用 TRAINGDM 算法 训练 BP 网 络 
[net, tr]-train(net, x, y); 


を 对 BP 网 络 进行 仿真 


A train = sim(net,x); 


を 计算 仿真 误差 
Error = y - A train; 


% 均 方 误差 
disp ' 网 络 训练 均 方 误差 ' 
MSE = mse (Error) 


figure (1) 

plot (y, 'ro--', 'linewidth',1) 

hold on 

plot(A train, 'bs--', 'linewidth',1) 
legend(' 实 际 值 ', " 答 出 値 ") 

figure(2), 

plot (Error) 

title(' 预 测 误差 ') 


运行 程序 得 到 的 结果 如 图 6-11 ~ 图 6-13 所 示 。 
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图 6-11 迭代 误差 图 


g Training State (plottrainstate), Epoch 1000, Maxi... | 
文件 昌 SS EEV ÆA IAD SMO SAW 帮助 (H) 


T Gradient = 3.896e-06, at epoch 1000 
10 


gradient 


Mu = 1e-07, at epoch 1000 


Validation Checks = 0, at epoch 1000 
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图 6-12 ”训练 状态 图 


对 比 图 6-6 可 知 ， 采 用 该 方法 误差 下 降 速 度 快 ， 且 收敛 精度 高 。 
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图 6-13 ”数据 拟 合 结果 


对 比 图 6-7 可 得 ， 采 用 {tansig'，'*tansig } 作 为 网 络 传递 函数 ，*trainlm 作为 误差 反馈 学 习 函 数 ， 网 络 反馈 误差 下 降 更 快 ， 网 络 训练 无 效 次 数 为 0。 


对 比 图 6-8 可 知 ， 采 用 该 方法 得 到 的 数据 拟 合 结果 和 实际 数据 相 有 逼近 ， 因 此 该 方法 应 用 效果 较 好 。 


由 此 得 到 的 预测 结果 和 预测 误差 如 图 6-14 和 图 6-15 所 示 。 
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图 6-14 训练 数据 预测 结果 
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图 6-15 训练 误差 


采用 newff (minmax (y) , [hiddennum, outputnum], ('tansig', 'tansig'), 'trainlm') 结构 的 BP 神 经 网 络 进行 上 证 指数 预测 ， 能 够 较 好 地 逼近 实际 数据 。 


接 下 来 进行 未 来 的 预测 ， 具 体 如 下 : 


%% 预测 

x1=1ength (data) -*1:length (data) +100; $ 预测 未 来 100 天 的 数据 
x2= (settings.ymax-settings.ymin).*(xl-settings.xmin)./(settings.xmax- settings.xmin)-*settings.ymin; 
B train - sim(net,x2); s 预测 


figure, 

plot (x, y, 'ro--', 'linewidth',1) 

hold on 

plot(x,A train, 'bs--','linewidth',1) 

plot (x2,B train, 'g.--','linewidth',1) 
legend( "实际 值 '，' 训 练 数据 预测 值 '，' 预测 未 来 值 ') 


得 到 如 图 6-16 所 示 的 预测 结果 图 。 


采用 BP 神经 网 络 进行 预测 ， 在 未 来 100 天 时 间 内 ， 股 价 基本 保持 不 变 ， 处 于 一 个 震荡 区 间 (本 书 涉及 的 算法 预测 结果 仅 供 参考 ) 。 


る Figure 5 
文件 加 S6) EEV 挿入 D IEO SEM 窗口 MM) 帮助 出 ) 
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预测 未 来 值 


* 


6-16 


昨天 的 时 刻 ， 预 测 今天 的 上 证 指数 值 ， 也 就 是 向 后 移动 一 位 。 在 此 给 出 相应 的 代码 : 


可 以 


clc,clear,close all 
warning off 
feature jit off 


op 9? ao 


%% 导入 数据 

$ load('data.mat') s mR 
load('price.mat') る 加 载 数据 
data = closeprice; る 收盘 人 
x-1:length (data); を 输入 为 数据 长 度 ， 等 效 于 时 间 
y-data; $ 上 证 指数 

%% 归 一 化 

[x, settings]=mapminmax (x); る x 归 一 化 
y=mapminmax (y' ) ; を y 归 一 化 

input = x(1:end-1); を 输入 
output = y(2:eng) ; S 输出 


%% 网 络 结构 
inputnum = 1; 


hiddennum = 20; 
outputnum = 1; 
net-newff (minmax (output), [hiddennum, outputnum], ('tansig','tansig'), 'trainlm'); 


る 当前 输入 层 权 值 和 效 值 
inputWeights-net.IW(1,1); 
inputbias-net.b(1); 


る HANK JECBUEURITU (t 
layerWeights-net.LW(2,1); 
layerbias-net.b(2); 


% 设置 训练 参数 
net.trainParam.show = 50; 
net.trainParam.lr - 0.01; 
net.trainParam.mc = 0.9; 
net.trainParam.epochs - 1000; 
net.trainParam.goal = 1e-7: 


$* 网 络 预测 
$ 调用 TRATNGDM 算法 训练 BP 网 络 
[ 


net, tr]-train(net, input, output); 


% 输入 的 权 值 
% HABE 


% 输出 层 的 权 值 
% 输出 层 的 闪 值 


b 对 BP 网 络 进行 仿真 
A train = sim(net,input); 


$ 计算 仿真 误差 
Error = output - A train; 


% 均 方 误差 


未 来 100 天 预测 值 


$ 新 建 BP 网 格 


disp ' 网 络 训练 均 方 误差 ' 


MSE = mse (Error) 


figure (1) 
plot(y,'ro--','linewidth',1) 

hold on 

plot(A train, 'bs--', 'linewidth',1) 
legend(' 实 际 值 '， ' 输 出 值 ) 

figure(2), 

plot (Error) 

title(' 预 测 误差 ') 


ss 预测 下 一 天 的 数据 


B train = sim(net,x(end)); s 预测 
figure, 

plot (input, output, 'ro--', 'linewidth',1) 
hold on 

plot (input, A 2 pns vinea 2 
plot (x (end), width 


legend ( (SERI, "aedem. 下 "dio 


运行 程序 得 到 如 图 6-17 所 示 结 果 。 相 应 的 局 部 放大 图 如 图 6-18 所 示 。 
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637 训练 数据 预测 结果 
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图 6-18 局 部 放大 图 


相应 的 预测 误差 如 图 6-19 所 示 。 
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图 6-19 ”预测 误差 


然而 很 多 时 候 更 多 关注 的 是 其 底层 函数 是 怎样 的 ， 则 具体 的 BP 网 络 代码 如 下 : 


る BP 神经 网 络 


clc,clear,close all % 清理 命令 区 、 清 理工 作 区 、 关 闭 显 示 图 形 
warning off % 消除 警告 

feature jit off % 加 速 代码 运行 

format short を 数据 类 型 

tic $ 运算 计时 

load('data2.mat') % 加 载 数据 

% 构建 网 络 


nntwarn off 
xs = traindata(:,1:8); % 输入 数据 
ys = traindata(:, 9:11) % 输出 数据 


$ 训 练 样本 输入 输出 数据 归 一 化 
[xs, inputps]=mapminmax (xs); 
[ys, outputps]=mapminmax (ys); 


de op de 


HP E 

inputnum-8; $ 输入 层 节 点 
hiddennum-30; o 隐藏 层 节 点 
outputnum=3; る 输出 层 节点 
xite-0.01; % 学 习 因 子 
alfal-0.5; % 动量 系数 
alfa2-0.002; % 动量 系数 


% 输入 层 到 隐藏 层 权 值 ー 

w1=5*rands (inputnum,hiddennum); $ 输入 层 神经 元 为 inputnum， 隐 藏 层 为 hiddennum 
wl 1-w1; wl 2-w1; wl 3-w1; 

dw1-0*wl; 

% 隐藏 层 到 输出 层 权 值 E 

w2-5*rands (hiddennum, outputnum) : を 隐藏 层 神经 元 为 hiddennum， 输 出 层 为 outputnum 
w2 1-w2; w2 2-w2 1; w2 3-w2 2; 


I-zeros (hiddennum, 1) ; DE 输入 层 到 隐藏 层 计 算 值 
Iout-zeros (hiddennum, 1) ; % 隐藏 层 到 输出 层 计算 
FI-zeros (hiddennum, 1) ; 名 S 函 数 的 导数 f(x) = 1/(1+exp (-x) ), 则 导数 f(x)' = f(x)* (1-f (x)) 
OUT-outputnum; る 输出 个 数 
k-0; S 标示 为 初始 化 
E=1.0; を 误差 初始 化 
NS=size (xs, 1); % 训练 数据 维 数 
for ii-1:200 
k=k+1; 
times (k) =kz 


for s-1:NS % 逐 行 提取 样本 


% 输入 层 到 隐藏 层 
x=xs(s,:); % 逐 行 提取 样本 
for j=1:hiddennum 
I(j)=x*w1(:,3j); 
Iout (j)=1/ (1+exp (C1 ))) ; 


end 


% 隐藏 层 到 输出 层 


-w2'*Iout; 


utputnum 
el=e1+0.5* (y (1) -y1 (1) )^2; る 输出 误差 
end 


x 


E-E«es (5); $ 误差 累计 和 


w2-w2 l*xite*Iout*eytalfal*(w2 1-w2 2)*alfa2*(w2 2-w2 3); 


for ]=1:hiddennum 
S=1/ (1+exp (CI (3) ) ) : 
FI(j)-S* (1-S) ; 

end 


for i-l:inputnum 
for j-1:hiddennum 
dw1 (i,j)-xite*FI (]) *x (1) * (ey (1) *w2 (j, 1) *ey (2) *w2 (3,2) +ey 3). *w2 0,3); 
end 
end 
wl-wl 1+dw1+a1fa1* (w1 1-w1 2)*alfa2*(wl 2-wl 3); 


wl 3-wl 2; wl 2-wl 1; wl 1=w1: 
w2 3-w2 2; w2 2-w2 1; w2 1=w2: 
end  $ End of for T ú 
Ek(k)=E; 
end  $ End of while 
min (Ek) 
figure(1); 
plot (times, Ek, 'r'); 
xlabel('k');ylabel('E'); 


de de oe de 


save BP data.mat wl w2 hiddennum xs ys 

%% 预测 

clear all 

load('BP data.mat') 

load('data.mat') 

test = xs; 

$ test = testdata; 

for i-1:size(test,1) 

for jel:hiddennum 

I test (i, j)-test (i, :) *w1(:,3); 
Tout test(i,j)-1/(1*exp(-I test (i,j))); 


end 
end 
y-w2'*Iout test'; 
y y" 
测试 数据 预测 
inputn test-mapminmax('apply',input test,inputps); $ 归 一 化 
yc-sim(net,inputn test); 
test simu-mapminmax ('reverse',yc,outputps)' 


de gp de op 


运行 程序 ， 输 出 结果 如 下 : 


ans = 
4.8167 

y- 
0.5122 -0.0847 0.2234 
0.5198  -0.1415 0.3021 
0.5267 -0.0210 0.4436 
0.6248 -0.1095 0.2049 
0.5472 -0.0792 0.6036 
0.8588 -0.1123 0.1108 
0.9196 0.0429 0.1378 
0.4987 -0.1397 0.4170 
0.8602 -0.0503 0.0809 
0.6288 0.0461 -0.2096 
0.8154 0.1795  -0.5744 
0.6995 0.1562  -0.3756 
1.0332 0.3867 -0.4926 
0.9990 0.3915 -0.4282 
0.9868 0.1796 -0.4393 
0.9209 0.3489 -0.5408 
1.1404 0.3096 -0.0286 
0.9609 0.0025 0.1330 
1.0993 0.0505 -0.0472 
1.0286 0.0264 -0.2327 
0.9020 -0.2580 -0.1123 
0.9400 -0.1107 0.0317 
0.8565  -0.1227  -0.1170 
1.0826 0.0255 0.1745 
1.2380 0.1835 -0.2465 
0.8067 -0.0074 0.1511 


可 以 修改 其 输入 数据 以 及 神经 网 络 的 结构 ， 进 行 其 他 工 况 下 的 分 析 ， 这 里 不 再 歼 述 。 


第 7 章 ”BP 神经 网 络 工具 箱 多 指标 了 预测 


BP 网 络 是 一 种 按 误差 减 小 的 方向 传播 的 智能 算法 ， 是 目前 应 用 最 广泛 的 神经 网 络 模型 之 一 。BP 神 经 网 络 是 误差 反 向 传播 神经 网 络 的 简称 ， 它 由 一 个 输入 层 ， 一 个 或 多 个 隐 含 层 和 一 个 输出 层 构成 ， 每 一 
次 由 一 定数 量 的 的 神经 元 构成 。 这 些 神经 元 如 同人 的 神经 细胞 一 样 是 互相 关联 的 。 本 章 通 过 选取 多 指标 来 构建 神经 网 络 的 输入 层 ， 具 体 的 多 指标 有 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、 
CHO 佳 庆 指标 、CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DMI 趋 向 指标 、EMV 简 单 波动 指标 、GDX 鬼 道 线 指标 、JLHB 绝 路 航标 等 。 同 样 的 ， 采 用 RBF 网 络 、hopfield 网 络 也 可 以 进行 
相应 的 预测 分 析 。 


7.1 ”BP 神经 网 络 


BP 神经 网 络 是 一 种 常用 的 神经 网 络 ， 是 人 工 智能 网 络 的 一 种 形式 ， 其 采用 反 向 传播 的 方式 进行 数据 的 训练 仿真 ， 模 拟 生物 神经 元 结构 模型 ， 通 过 相连 神经 元 之 间 交 互信 息 。BP 神 经 网 络 一 般 由 输入 层 、 
隐藏 层 和 输出 层 构成 ，BP 神 经 网 络 对 输入 的 信息 具有 自我 学 习 的 功能 ， 通 过 隐藏 层 和 相应 的 阔 值 和 权 值 放大 ， 得 到 相应 的 输出 结果 。 


BP 神 经 网 络 结构 如 图 7-1 所 示 。 


Neural Network 


Layer Layer 


Input 
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如 图 7-1 所 示 ， 输 入 层 节点 数 为 21， 隐 藏 层 节点 为 21， 输 出 层 节点 数 为 1。 即 输入 层 到 隐藏 层 21 个 节点 ， 隐 藏 层 到 输出 层 1 个 节点 。 


BP 神 经 网 络 的 数据 处 理 方式 具有 如 下 特点 。 


(1) 信息 分 布 存储 : 人 脑 存储 信息 是 利用 突 触 信息 的 变化 来 调整 神经 元 分 配 单元 ， 即 信息 位 于 神经 元 之 间 的 连接 强度 上 ，BP 神 经 网 络 通过 模拟 人 脑 的 这 一 特点 ， 使 交互 的 信息 以 连接 权 值 的 形式 分 布 
于 整个 网 络 。 


(2) 信息 并 行 处 理 : 人 脑 的 计算 速度 远 远 低 于 计算 机 的 计算 速度 ， 然 而 人 脑 却 可 以 在 很 多 问题 上 做 出 快速 的 处 理 ， 这 主要 是 人 脑 是 一 个 大 规模 并 行 处 理 系 统 。BP 神 经 网 络 结构 模仿 人 脑 并 行 处 理 结 
构 ， 大 大 地 提高 了 网 络 处 理 速度 。 


(3) 容错 性 : BP 神 经 网 络 的 预测 精度 和 系统 设 定 的 迭代 次 数 以 及 最 后 的 收敛 误差 ， 是 具有 容错 机 制 的 。 也 就 是 说 ， 算 法 到 达 了 迭代 次 数 不 一 定 收敛 ， 收 敛 了 也 不 一 定 到 达 设 定 的 迭代 次 数 。 


(4) 自学 习 能 力 : BP 神 经 网 络 具有 初步 的 自 适应 与 自 组 织 能 力 ， 在 学 习 或 训练 过 程 中 ， 通 过 改变 权 值 以 适应 输入 输出 数据 特性 ， 进 而 实现 网 络 分 类 、 预 测 等 功能 。 


7.2 多 指标 选取 


考虑 到 股票 操作 中 常见 的 各 个 指标 ， 本 章 选取 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指 标 、CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DM | 趋向 指标 、 
EMV 简 易 波 动 指标 、GDX 扳 道 线 指标 、 儿 HB 绝路 航标 、Js 加 速 线 指标 、MACD 平 滑 异 同 平均 指标 、MDI 下 降 动向 指标 、MTM 动 力 指标 、OSC 变 动 速率 线 、PBX 瀑 布线 指标 、PDI 上 升 动向 指标 、QACD 快 
速 异 同 平均 指标 、QR 强 弱 值 指标 、TRIX 三 重 指数 平滑 平均 线 、UOS 终 极 指标 、VMA 变 异 平 均线 指标 、ACCER 幅 度 涨 速 指标 、ADTM 动 态 买卖 人 气 指标 、BB 布 林 极限 指标 、BIAs 乖 离 率 指标 、CCI 顺 势 指 
标 、CYF 市 场 能 量 指标 、DBCD 异 同 离 差 老 离 率 指标 、DKX 多 空 线 指标 、DPO 区 间 震 荡 线 指 标 、FSL 分 水 岭 指 标 、KDJ 随 机 指标 、LWR-! 威 廉 指 标 、ROC 变 动 速率 指标 、RSI 相 对 强 弱 指 标 、SKDJ 慢 速 随机 指 
标 、3I 摆 动 指标 、SRDM 动 向 速度 比率 指标 、UDL 引 力 线 指标 、WR 威 廉 指 标 、WIDTH 布 林 极 限 宽度 指标 等 ， 进 行 上 证 指数 的 分 析 预 测 。 


AVEDEY 平 均 绝对 离 差 、DMA 动 态 移动 平均 值 、EMA 指 数 平 滑 移 动 平均 值 、HHV 序 列 最 大 值 、LLV 序 列 最 小 值 、MA 简 单 移动 平均 值 、SMA 指 数 移动 平均 值 这 些 子 函数 是 ACD 升 降 线 指标 、ADX 动 向 平 
均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指标 、CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 等 指标 的 子 函 数 ， 在 使 用 这 些 指标 的 过 程 中 均 会 用 到 。 


c 


具体 的 指标 求解 如 下 。 


(1) 趋势 指标 求解 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off を 取消 警告 
feature jit off を 加 速 通道 


ss 导入 数据 


load('price.mat') % 加 载 数据 

openprice = openprice'; $ openprice- 为 输入 的 开盘 

highprice = highprice'; $ highprice- 为 输入 的 最 高 价 

lowprice = lowprice'; $ lowprice- 为 输入 的 最 低 价 

closeprice = closeprice'; 名 closeprice- 为 输入 的 收盘 价 
load('data0602.mat') 

tradingvolumn = data0602 (3:end-1,6); る tradingvolumn- 为 成 交 量 
tradingvolumn = cell2mat (tradingvolumn); を tradingvolumn- 为 成 交 量 
tradingvolumn = tradingvolumn'; $ tradingvolumn- 为 成 交 量 


clear data0602 


= 5; 期 ,为 整数 ，1<= periodi <= N — $ PDI 上 升 动向 指标 
period2 = 5; 周期 ,为 整数 ，1<= period2 < N % MDI 下 降 动向 指标 
period3 = 5; 期 ,为 整数 ，1<= periodi <= N $ ADX 动 向 平均 数 指标 
period4 = 10; 期 ,为 整数 ，1<= period2 < N % BBT 多 空 指数 
period5 = 5; 期 ,为 整数 ，1<= periodl <= N を BBI 多 空 指数 
period6 = 10; 期 ,为 整数 ，1<= period2 <= N % BBI 多 空 指数 
period7 = 5; 算 周期 ,为 整数 ，1<= periodl <= N $ BBI 多 空 指数 
period8 = 2; 期 ,为 整数 ，1<= period2 <= N $ CHO- 佳 庆 指 标 
period9 = 4; 期 ,为 整数 ，1<= period1 <= N 标 
period10 = 10; 期 ,为 整数 ，1<= period2 <= N 2 
periodll = 5; 算 周期 ,为 整数 ，1<= periodl <= N 
period12 = 10; 期 ,为 整数 ，1<= period1 <= N 
period13 = 10; 期 ,为 整数 ，1<= period2 <= N 
periodl4 = 10; 期 ,为 整数 ，1<= period2 <= N HEF 
period15 = 10; 期 ,为 整数 ，1<= period2 <= N $ EMV- 简 易 波动 指标 
period16 = 2; 期 ,为 整数 ，1<= period2 <= N $ GDX- 鬼 道 线 指标 
period17 = 10; 期 ,为 整数 ，1<= period2 <= N $ JLHB 绝 路 航标 
period18 = 10; 期 ,为 整数 ，1<= period2 <= N $ JLHB 绝 路 航标 


period19 = $ 计算 周期 ,为 整数 ，1<= Period2 $ JS- maa BER 
period20 s 计算 周期 ， 为 整数 ， 1<= period2 <= 平均 指标 
period21 % 计算 周期 ,为 1<= period2 <= 平均 指标 
period22 を 计算 周期 ， 为 整数 ， 1<= Period2 <= 同 平均 指标 
period23 ° 计算 周期 ,为 整数 ，1<= Period2 <= 
period24 % 计算 周期 ,为 整数 ，1<= period2 <= N 
period25 % 计算 周期 ,为 整数 ，1<= period2 <= N 
Period26 $ 计算 周期 为 整数 ， 1«- period2 <= N を PBX 瀑 布线 指标 
period27 s 计算 周期 ,为 整数 ，1<= period2 <= N % QACD 快 速 异同 平均 指标 
period28 ; $ 计算 周期 ,为 整数 ，1<= period2 <= N % QACD 快 速 异同 平均 指标 
period29 = 10;  $% 计算 周期 ,为 整数 ，1<= period2 <= N S QACD 快 速 异同 平均 指标 
period30 = 10; ° 计算 周期 为 整数 ，1<= period2 <= Y % QR 强 弱 值 指标 
period31 = 10; $ 计算 周期 ,为 整数 ，1<= Period2 指数 平滑 平均 线 指标 
period32 = 10; % 计算 周期 ,为 整数 ，1<= period2 <= 悦 指 酸 
period33 = 10; s 计算 周期 ,为 整数 ，1<= period2 <= Ep 
period34 = 10; $% 计算 周期 ,为 整数 ，1<= period2 <= 5 BHEE 
period35 = 10; s 计算 周期 ,为 整数 ，1<= period2 <= N る VMA 变 异 平均 线 指标 
$$% 权重 
weight = 30; $ 松重 , 1<=weight<=100 S GDX- 鬼 道 线 指标 

增加 路 径 - 

指标 : ACD- 升 降 线 指标 、ADX- 动 向 平均 数 指标 、BBI- 多 空 指数 、 


CHO- 佳 庆 指 标 、.CYE- 市 场 趋势 指标 、DDI- 方 向 标准 离 差 指 数 、 
DFMA -平均 线 差 、DMI- 趋 向 指标 、EMV- 简 易 波动 指标 、GDX- 鬼 道 线 指标 、 
JLHB- 绝 路 航标 、JS- 加 速 线 指标 、MACD -平滑 异同 平均 指标 、 


ix 


MDI- 下 降 动向 指标 、MTM- 动 力 指标 、OSC -变动 速率 线 、PBX- 瀑 布线 指标 、 
PDI- 上 升 动向 指标 、QACD- 快 速 异 同 平均 指标 、QR- 强 弱 值 指标 
、TRTX 指数 平滑 平均 线 、UOS- 终 极 指标 、VMA- 变 异 平均 线 指标 


addpath (genpath ("第 4 章 ") ) ; s 增加 路 径 


acd = ACD(highprice, lowprice, closeprice); る ACD 指 标 求解 

pdi = PDI (highprice, lowprice, closeprice, periodl); る PDI 上 升 动向 指标 

mdi = MDI (highprice, lowprice, closeprice, period2); 名 MDI 下 降 动向 指标 

adx = ADX(pdi,mdi,period3); S RDX 动 向 平均 数 指标 

bbi = BBI(closeprice, period4, period5, period6, period?) ; も BBI 多 空 指数 
( 


cho = CHO (highprice, lowprice, closeprice, tradingvolumn, period8, period9) ; 
る CHO- 佳 庆 指 标 
cyel,cyes] = CYE(closeprice); る CYE 市 场 趋势 指标 
ddi = DDI(highprice, lowprice, period10); 名 DDI 方 向 标准 离 差 指数 
dfma = DFMA (closeprice, periodll,period12); 名 DFMA 平 均线 差 
dmi pdi,dmi mdi, dmi adx,dmi adxr] = http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/.. 
DMI TIR Sp oe Lowpeluer closeprice,period13, periodl4); S DMI 趋向 指标 
emv = EMV (highprice, lowprice, tradingvolumn, period15); S EMV- 简 易 波动 指标 
gdx,YL,ZC] = GDX(highprice, lowprice, closeprice, period16, MM ; 
S GDX- 鬼 道 线 指标 
JLHB (highprice, lowprice, closeprice, period1l7,period18); 
S JLHB 绝 路 航标 
= JS (closeprice, period19); S JS- 加 速 线 指标 
dif | MACD, dea | MACD, macd] = MACD (closeprice, SON. period21, period22) ; 
る MACD 平 滑 异 同 平均 指标 
名 MTM 动 力 指标 


mtm = MM (closeprice,period23); 


jlhb = 


js 


osc= OSC (closeprice,period24,period25); . $ OSC 变 动 速 
pbx- PBX (closeprice,period26); % _PBX 瀑 布线 指标 


dif QACD,dea QACD, qacd] = OACD (closeprice, Der1od27, per1od28, per1od29) ; 
Š ACOR RF Is - 
% QR 强 弱 值 指标 


% q: QR (c1oseprice, indexcloseprice,period30; 


siis TRIX (closeprice,period31); 指数 平滑 平均 线 指标 
uos = UOS (highprice, lowprice, closeprice, Der1od32, per1od33, period34); 

% UOS 终 极 指标 
vma = VMA (openprice, highprice, lowprice, closeprice, period35) ; 


% VMA 变 异 平均 线 指标 


rmpath ("第 4 章 ") を 移 除 路 径 


%S 合并 各 指标 
index4-[]; 
index4-[index4; 


acd; S RCD 指 标 求解 _ 

pdi; S PDI 上 升 动向 指标 

mdi; る MDI 下 降 动向 指标 

adx; 名 ADX 动 向 平均 数 指标 

bbi; る BBI 多 空 指数 

cho; $ CHO- 佳 庆 指标 

cyel;cyes; $ CYE 市 场 趋势 指标 

ddi; S DDI 方 向 标准 离 差 指数 

dfma; る DFMA 平 均线 差 

dmi pdi;dmi mdi;dmi adx;dmi adxr; — % DMI 趋向 指标 
emv; る EMV- 简 易 波 动 指标 

gàx; YL; ZC; る GDX- 鬼 道 线 指标 

jinb; る JLHB 绝 路 航标 

js; る JS- 加 速 线 指标 

dif MACD;dea MACD;macd; 名 MACD 平 滑 异 同 平均 指标 
mtm; る MTMA JHR 

OSC}; z OSCAE IJ 

pbx; る PBX 瀑 布线 指标 

dif QACD; dea QACD; qacd; QACD 快 速 异同 平均 指标 
$ qr; 

trix; 指标 

uos; 


vma; 


运行 程序 得 到 相应 的 指标 数据 集 如 


7-2 所 示 。 


44 MATLAB R2015b 


| | B 9 ">= VARS: 
[ NaN -85.0600 -27.6100 -129.3600| -100.6700 -64.700| 8900 -218.5500| -190.0800 -213.8200| -1t^ 


NaN NaN | NaN  -15.3612 . -26.7588|  -213643 -14.5724 
NaN NaN) laN NaN 35379 — 37794 96346 07541  -24692 - 
NaN. NaN. | | NaN | NaN. | 1388014 
NaN. | | | NaN | NaN | 13176e+03_1.29[ 
NaN | -3.2772e+... | -.2789e«.. 2.5523e+04 -5.0106e+.. -8.2640e+.. -1.1918e+.. 4.20€ 
NaN NaN  -12016 -03559 — -28775 — -09298 -1.4194 
NaN NaN NaN NaN NaN 
NaN | | NaN NaN NsN | 
| | | NaN. NaN. NaN! 
“NaN NN — NaN 
NaN] 
NaN 
NaN 
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图 7-2 ”指标 数据 集 


如 图 7-2 所 示 ， 此 时 得 到 一 个 32 行 x4620 的 指标 矩阵 。 


32 行 x4620 的 指标 矩阵 在 开始 的 很 多 列 中 存在 很 多 的 NaN 值 ， 在 后 续 处 理 中 ， 可 以 直接 截断 处 理 ， 将 含有 NaN 的 列 全 部 删 掉 。 


为 了 释放 MATLAB 和 矩阵 计算 的 内 存 ， 进 行 变量 的 清除 工作 ， 具 体 如 下 : 


% 释放 内 存 

Clear acd adx bbi cho closeprice cyel cyes ddi dea MACD dea QACD dfma 

Clear dif MACD dif QACD dmi adx dmi adxr dmi mdi dmi pdi emv gdx highprice 

clear jlhb js lowprice macd mdi mtm openprice osc pbx pdi periodl period2 

Clear period3 period4 period5 period6 period7 period8 period9 periodl0 periodll 

clear periodl2 periodl3 periodl4 period15 periodl6 periodl7 period18 Period19 period20 
Clear period21 period22 period23 period24 period25 period26 period27 period28 period29 
clear period30 period31 period32 period33 period34 period35 qacd tradingvolumn trix uos 
clear vma weight YL ZC 


则 接 下 来 可 以 直接 对 指标 数据 集 数组 进行 操作 。 


(2) 清除 存在 NaN 值 的 列 


$5 清除 存在 nan 的 列 
for i-1:size (index4, 2) る 列 
flag-0; 
for j=1:size (1ndex4, 1 ) % dT 
if isnan (index4 (j,i)) 
flag-1; 


if flag==0 % 没有 NaN 
col(i) = 0; 


を 存在 NaN 


Q 

° 
E 
É 

II 
m 


end 


a A RE IAA R 直到 遇 到 一 个 NaN 为 止 
co. = 0: 
for i-length (col):-1:1 
if col(i)==. 
cold = i; $ 记录 遇 到 的 第 一 个 NaN 
break; 
end 


end 
if col d--0 を 没有 NaN 


else 
index4(:,1:col_d)=[]; s 清除 第 1 列 到 第 co1 g 列 


end 
S 则 保存 的 为 纯 数值 的 指标 集 


Clear i j flag col col d 


得 到 相应 的 剔除 NaN 的 指标 集 ， 具 体 如 图 7-3 所 示 。 


index4 | 
HH 32x4560 double 


2 3 4 5 8 9 10 
到 -233.950d| -227.1400 -249.8100  -287.0900 -320.4600| -272.4700 -304.2900 -3127200 -323.0200 -3112900 -26^ 
5.0397 — 47846 -10.4127  -28.5268  -205821  -11.2333 -9.8075 -4.5680 9.1015 10.6380 
24279 364772 331138 275623 80016 — 74807 -74481  -170437  -120699 — 96774 
-65.1534, -490142 -73.4732 1.1011e+03| 1.1617e+03 1.2545e+03 1.2726e+03| 1.2994e+03 -6.2760 -50.7716 
1.1858e+03 11889403 1.1894e+03 1.1841e+03 1.1760e+03 1.1718e+03 1.1630e+03| 1.1548e403 1.1502e+03 1.1513e+03 
-4.3896e+. 1.5769e+04| -5.7988e +.. -4.1422e+... -5.3122e«.. -1.8411e+. 1.7481e+04| 2.2207e403 -3.1885e+.. 4.9102e+03 
0.593 — 02220  -02720  -08304  -08771 -0.5316 — -10813 -0.8582  -02433 — 04301 
0.3012 03153 — 02254 01067 0.0039  -00874  -01870  -02358  -02550  -02417 
-01313 02716 02775 00754 02017  -02520  -01820 -0.3506  -03120 -0.2028 
12.5570 — 116840 — 42030 — -5.0490  -94830  -13.5440  -211660  -244860  -20.9290 -13.2960 
207025 — 287771 298736 — 284873 194754 17.6803 175320 142105 135927 147889 
320455 25.9017 26.5349 394235 497839 431741 389184 429319 427153 37.0246 
222630 217706 197261 168216 182085 20.6879 223492 252356 304027 317222 
30.8592 27.5920 25.3324 243233 — 263521 — 283899 292085 28.5295 — 282848 274723 
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由 此 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指标 、CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DMI 趋 向 指标 、EMV 简 易 波 动 指标 、GDX 鬼 道 线 指标 、 
儿 HB 绝路 航标 、Js 加 速 线 指标 、MACD 平 滑 异 同 平均 指标 、MDI 下 降 动向 指标 、MTM 动 力 指标 、OSC 变 动 速率 线 、PBX 瀑 布线 指标 、PDI 上 升 动向 指标 、QACD 快 速 异同 平均 指标 、QR 强 弱 值 指标 、TRIX 
三 重 指数 平滑 平均 线 、UOS 终 极 指标 、VMA 变 异 平均 线 指标 等 指标 计算 完毕 


(3) 反 趋 势 指标 求解 


反 趋 势 指标 为 ACCER 幅 度 涨 速 指标 、ADTM 有 动态 买卖 人 气 指标 、BB 布 林 极 限 指标 、BIAS 秒 离 率 指标 、C CI 顺势 指标 、CYF 市 场 能 量 指标 、DBCD 异 同 离 差 乖 离 率 指标 、DKX 多 空 线 指 标 、DPO 区 间 震 荡 
线 指标 、FSL 分 水 岭 指标 、KDJ 随 机 指标 、LWR-! 威 廉 指 标 、ROC 变 动 速率 指标 、Rsl 相 对 强 弱 指标 、SKDJ 慢 速 随机 指标 、SI 摆 动 指标 、SRDM 动 向 速度 比率 指标 、UDL 引 力 线 指标 、WR 威 廉 指标 、WIDTH 
布 林 极 限 宽度 指标 。 


分 别提 取 ACCER 幅 度 涨 速 指标 、ADTM 动 态 买卖 人 气 指标 、BB 布 林 极 限 指标 、BIAS 乖 离 率 指标 、CCI 顺 势 指标 、CYF 市 场 能量 指 标 、DBCD 异 同 离 差 乖 离 率 指标 、DKX 多 空 线 指标 、DPO 区 间 震 荡 线 指 
标 、FSL 分 水 岭 指 标 、KDJ 随 机 指标 、LWR-L 威 廉 指 标 、ROC 变 动 速率 指标 、RSI 相 对 强 弱 指 标 、SKDJ 慢 速 随机 指标 、SI 摆 动 指标 、SRDM 动 向 速度 比率 指标 、UDL3 引 力 线 指标 、WR 威 廉 指 标 、WIDTH 布 林 
极限 宽度 指标 数据 ， 程 序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 

warning off を 取消 警告 

feature jit off $ 加 速 通道 

$* 导入 数据 

load('price.mat') % ”加载 数据 

openprice = openprice'; b openprice- 为 输入 的 开盘 价 

highprice = highprice'; 入”highprice- 为 输入 的 最 高 价 

lowprice = lowprice'; $ ”lowprice- 为 输入 的 最 低 价 

closeprice = closeprice'; % closeprice- 为 输入 的 收盘 价 
load('data0602.mat') 

tradingvolumn = data0602 (3:end-1, 6) ; る tradingvolumn- 为 成 交 量 
tradingvolumn = cell2mat (tradingvolumn); % tradingvolumn- 为 成 交 量 
tradingvolumn = tradingvolumn'; る tradingvolumn-JJ XE 


clear data0602 


%% 计算 周期 

period36 = 5; s 计算 周期 ,为 整数 ，1<= periodi < N $ ACCER- 幅 度 涨 速 指 标 
period37 = 5; 计算 周期 ,为 整数 ，1<= period2 <= N る 动态 买卖 人 气 指标 RDTM 
period38 = 5; % 计算 周期 ,为 整数 ，1<= period1 <= N る 布 林 极限 指标 BB 
period39 = 10; % 计算 周期 ,为 整数 ，1<= period2 <= N る 乖 离 率 指标 BIRAS 
period40 = 5; — % 计算 周期 ,为 整数 ，1<= periodi <=N $ 异同 离 差 乖 离 率 指标 DBCD 
period41 = 5; る 计算 周期 ,为 整数 ，1<= period2 <= N s 异同 离 差 乖 离 率 指标 DBCD 
period42 = 5; % 计算 周期 ,为 整数 ，1<= periodl <= N る 异同 离 差 乖 离 率 指 标 DBCD 
period43 = 3; % 计算 周期 ,为 整数 ，1<= period2 <= N 3 顺势 指标 CCI 

period44 = 4; % 计算 周期 ,为 整数 ，1<= periodl <= N る 市 场 能 量 指标 CYF 
period45 = 10; % 计算 周期 ,为 整数 ，1<= period2 <= N を 区 间 震 荡 线 指标 DPO 
period46 = 5; 计算 周期 ,为 整数 ，1<= period1 <= N % 随机 指标 KDJ 

period47 = 10; % 计算 周期 ,为 整数 ，1<= periodi <= N る 随机 指标 KDJ 
period48 = 10; % 计算 周期 ,为 整数 ，1<= period2 <= る 随机 指标 KDJ 
period49 = 10; $ 计算 周期， 为 整数 ，1<= Period2 - % 威廉 指标 WR 
period50 = 10; s 计算 周期 ， IRA, 1<= period2 <= gs 威廉 指标 中 

period51 = 2; E] 计算 周期 ,为 整数 ， 1<= period2 <= N % 威廉 指标 WR 

period52 = 10; % 计算 周期 ,为 整数 ，1<= period2 <= N る 变动 速率 指标 ROC 
period53 = 10; $ 计算 周期 ,为 整数 ，1<= period2 i $ 相对 强 弱 指标 RSI 
period54 = 10; % 计算 周期 ， pra 1«- period2 <= を 慢 速 随机 指标 SKDJ 
period55 = 5; を 周期 1<= period2 pi $ 慢 速 随机 指标 SKDJ 
period56 = 3; % 计算 周期 ,为 整数 ，1<= period2 <= "i を 引力 线 指标 UDL 
period57 = 5; も 计算 周期 ,为 整数 ，1<= period2 <= N % 引力 线 指标 UDL 
period58 = 10; 计算 周期 ,为 整数 ，1<= period2 <= N $ 2L as 
period59 = 10; % 计算 周期 ,为 整数 ，1<= period2 <= N る 引力 线 指标 UD 

period60 = 5; — % 计算 周期 ,为 整数 ，1<= period2 <=N $% 布 科 极限 宽度 指标 WIDTE 


weight2 = 5; B, 1«-weight«-100 る 布 林 极 限 指标 BB 
weight3 = 2; B, 1«-weight«-100 S 异同 离 差 乖 离 率 指标 DBCD 
weight4 = 30; B, 1«-weight«-100 % 布 林 极 限 宽度 指标 WIDTH 


%% 增加 路 径 
指标 : A eec ERES 、RDTM- 动 态 买 卖 人 气 指标 、BB- 布 林 极 限 指标 、 
[X [B 


° BIRAS- 乖 离 率 指标 、CCI- 顺势 指标 、 CYE- 市 協 能 量 指 醒 、DBCD- 晃 同 高 差 乗 高 率 指 酸 、 
š DKX- 多 空 线 指标 、DPO- 区 间 震 荡 线 指标 、FSL- 分 水 岭 指标 、 KDJ- 随 机 指标 、 


LWR-IL 威 廉 指 标 、ROC- Pase Iz. RSI- 相 对 强 弱 指标 、SKDI- 慢 速 随机 指标 、sI- 摆 动 指标 、 
SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、WR- 威 廉 指 标 、WIDTH- 布 林 极限 宽度 指标 


addpath (genpath (' 第 5 章 ')); る 增加 路 径 

ACCER com = ACCER (closeprice, period36) ; る ACCER- 幅 度 涨 速 指标 

ADTM com = ADTM (openprice,highprice, lowprice,closeprice,period37); 
% SESSESE A UBBRADIM 


BB com = BB(closeprice,period38, weight2); % 布 林 极限 指标 BB 
BTAS com = BTAS (closeprice, period39) ; る 乖 离 率 指标 BIRAS 
DBCD Ç com = DBCD (closeprice, period40, iM Pisa weight3); 
NU ZEA p 
Cc com = CCI (highprice, lowprice, closeprice, period43) ; % 顺势 指标 CCI 
$ CYF com = CYF (HuanShouLi,period44); S rici tehscye 
DKX com = DKX (openprice, highprice, lowprice, closeprice) ; ; % 多 空 线 指标 DKX 


op 


DPO com = DPO (closeprice, period45) ; 区 Erase Maro 
% [SWL , com, SWS com] = FSL (closeprice, tradingvolumn, Capital); 


% 区 间 震 荡 线 指标 DPO 
[K com KDJ,D com KDJ,J com KDJ] = KDJ (closeprice,highprice, lowprice, period46, period47,period48); % 随机 指标 KDJ 
[WR com] = WR(closeprice,highprice, lowprice, period49); gs 威 廉 指 醒 WR 
[LWR com] = LWR(closeprice, highprice, lowprice, per1od50, per1od51 ) ; 

威廉 指标 WR 

[ROC com] = ROC (closeprice, period52) ; $ 变动 速率 指标 ROC 
[RST com] = RSI(closeprice, period53); S 相对 强 弱 指标 RSIT 
[K com SKDJ,D com SKDJ] = SKDJ (closeprice,lowprice,highprice,period54, period55); $ 慢 速 随机 指标 SKDJ 
[SI com] = SI(closeprice, highprice, lowprice, openprice); % 摆动 指标 SI 
[SRDM com] = SRDM(highprice, lowprice); % 动向 速度 比率 指标 SRDM 
[ 


UDL com] = UDL (closepricerperibdb6, periodS7, period58, per1od59) ; 
% 引力 线 指标 UDL 
[WIDTH com] = WIDTH(closeprice,period60,weight4);  $ 布 林 极限 宽度 指标 WIDTH 


rmpath ("第 5 章 ") る 移 除 路 径 
合并 每 个 指标 为 : 


$2 合并 各 指标 
index5-[]; 
index5- [index5; 
ACCER com; る ACCER- 幅 度 涨 速 指标 


ADTM com; s 动态 买卖 人 信 て 指 株 ADTM 
BB com; % 布 林 极 限 指标 BB 
BIAS com; M 乖 离 率 指标 BIAS 
DBCD com; s 异同 离 差 乖 离 率 指标 DBCD 
CCI com; % 顺势 指标 CCI 
$ CYF com; š amea 指标 CYF 
DKX com; $ 多 空 线 指标 DKX 
DPO com; き 区 间 震 荡 线 指标 DPO 
る SWL com;SWS com; 名 区 间 震 荡 线 指标 DPO 
K com KDJ;D com D. com KDJ; % 随机 指标 KDJ 
WR com; を 威廉 指标 WR 
LWR com; を 威廉 指标 WR 
ROC com; S 变动 速率 指标 ROC 
RSI com; を 相对 强 弱 指 标 RSI 
K com SKDJ;D com SKDJ; % 慢 速 随机 指标 SKDJ 
SI com; š 摆动 指标 SI 
SRDM com; S 动向 速度 比率 指标 SRDM 
UDL com; Y 引力 线 指标 UDL 
WIDTH com; S 布 林 极限 宽度 指标 WIDTH 


% 指标 合并 完成 


此 时 得 到 一 个 21 行 x4620 的 数组 ， 具 体 如 图 7-4 所 示 。 
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到 oon] -00042 -00153 -00144 00205| -00163| -0 . .0041 00097 


NaN NaN NaN | à L 0.7549 
NaN NaN NaN 5255 . . .3972 04300 
NaN NaN NaN | | -0.0659 
NaN NaN NaN | -0.0021. 
NaN NaN -50.6526  -100.0000 4 f i -55.6639 -59.8231 
NaN NaN NaN NaN | | NaN NaN 
NaN NaN NaN NaN | | NaN NaN 
NaN NaN NaN NaN j š 11.3030 11.9107 
clear period |10| NaN NaN NaN NaN .0692| 3.1080 3.0882 
clear period4 11 NaN NaN NaN NaN .5226 6823 f 27.6031 27.1556 
Clear period! | NaN NaN NaN NaN. | NaN NaN 
clear period9 |13| NaN NaN NaN NaN NaN NaN. 


>> clear ROC NaN NaN NaN NaN NaN 
>> clear WID 


fx >> 


命令 行 窗口 
>> plot (index 


>> clear ACCE 
>> clear DBCD 
>> clear ACCH 
clear DBCD co 
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图 7-4 反 趋势 指标 数据 集 


释放 内 存 ， 清 除 其 与 变量 如 下 : 


% 释放 内 存 

Clear ACCER com ADTM com BB com BIAS com CCI com D com KDJ D com SKDJ 
Clear DBCD com DPO com DKX com J com KDJ K com KDJ K com SKDJ LWR com 
clear period36 period37 period38 period39 period40 period41 period42 
clear period43 period44 period45 period46 period47 period48 period49 
Clear period50 period51 period52 period53 period54 period55 period56 
clear period57 period58 period59 period60 

Clear ROC com RSI com SI com SRDM com UDL com weight2 weight3 weight4 
Clear WIDTH com WR com 


如 图 7-4 所 示 ， 该 指标 数据 集中 存在 大 量 的 NaN 数 值 ， 应 该 加 以 剔除 ， 因 此 在 此 进行 NaN 检 测 并 加 以 剔除 ， 具 体 代 码 如 下 : 


$5 清除 存在 NaN 的 列 


for i=1:size (index5, 2) & 列 
flag-0; 
for j-1:size (1ndex5, 1) $ íT 
if isnan (index5 (j, i)) 
flag=1; 
end 
end 
if flag=0 を 没有 NaN 
col(i) = 0; 
else 
col(i) = 1; $ 存在 NaN 
end 
end 
%% 从 最 后 一 列 开始 查找 ， 直 到 遇 到 一 个 NaN 为 止 
col d= 0; 


; 
for i=length(col):-1:1 
if col(i)=1 


cold = i; る 记录 遇 到 的 第 一 个 NaN 
break; 
end 
end 
if col d--0 % 没有 NaN 
else 
index5(:,1:col d)-[]; s 清除 第 1 列 到 第 co1 g 列 


end 
% 则 保存 的 为 纯 数值 的 指标 集 
Clear i j flag col cold 


由 此 得 到 一 个 21 行 x4601 列 的 数组 ， 如 图 7-5 所 示 。 
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engin | 2 osses 08054  -03977 -06754 -08551 03310 03138 — 00685 — 06:28 0:8170) 
Fil iradingvolu.- | 03807 04088 — 04402 05198 — 0.6076 — 05503 — 04627 04261 06719 
-00228 -0.0453 -0.0581 -0.0604 -00331 -0.0138 -00188 — -0.0193 -0.0107 — 0.0396 
-0.0326 — -0.0506 -0.0608  -0.0540 -0.0130 0.0147 0.0304 0.0331 00263 0.0265 
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28.5004 29.9012 — 309674 317879 3281990 341445 356701 37.260 387765 10.6255 
942068 — 87.7218 59.7546 53.0421 — 60.6557 69.9265 76.8618 79.2603 806144 90.5767 
813607 — 98.5423 769413 80.8782 585159 — 50.3606 — 57.6023 63.7783 525696 0.8227 
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18673 -3.1208 -3.9328  -40037 -3.2066  -5.5991 — -69333 -9.4403  -95197 12450 
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875 反 趋 势 指标 数据 集 


7.3 ”基于 趋势 指标 的 BP 网 络 预测 


本 节 基 于 趋势 指标 ， 作 为 神经 网 络 的 输入 ， 输 出 为 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 ， 以 及 输入 为 32 个 ， 输 出 为 1 个 ， 用 于 预测 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 。 
(1) 上 证 指数 下 跌 为 -1， 平 衡 态 为 0， 上 涨 为 1。 


编写 上 证 指数 的 状态 程序 如 下 : 


clc,clear,close all m. AGA 清理 工作 区 、 关 闭 图 形 窗口 


warning off を 取消 警 

feature jit off る “加 速 通道 

$* 导入 数据 

load('price.mat') $ 加 载 数据 

openprice = openprice'; % openprice- 为 输入 的 开盘 价 

highprice = highprice'; $ highprice- 为 输入 的 最 高 从 

lowprice = lowprice'; $ lowprice- 为 输入 的 最 低 价 

closeprice = closeprice'; 多 closeprice- 为 输入 的 收盘 价 
load('data0602.mat') 

tradingvolumn - data0602 (3:end-1, 6); る tradingvolumn- 为 成 交 量 
tradingvolumn = cell2mat (tradingvolumn); E] tradingvolumn- 为 成 交 量 
tradingvolumn = tradingvolumn'; EI tradingvolumn- 为 成 交 量 


clear data0602 


$$ 以 closeprice 为 参考 ， 进 行 上 证 指数 的 上 涨 、 下 跌 、 平 衡 态 处 理 
SX = nan*ones (size (closeprice, 1) , size (closeprice, 2) ) ; る 初始 化 
for je1:size(closeprice,1) 

for i-2:size(closeprice,2) 


if closeprice(j,i) u V se (is 1)>0 
SX(j,i)=1; 

elseif closeprice (j, i) i 1)--0 
SX (j,i)-0; $ 平衡 状态 

elseif closeprice(j,i)-closeprice (j,i-1)<0 
SX(j,i)--1; s F 

End 


end 
end 


得 到 SX 为 状态 数组 ， 具 体 如 图 7-6 所 示 。 
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图 7-6 ”上 证 指数 的 3 个 状态 


(2) 归 一 化 输入 的 32 个 趋势 指标 ， 具 体 代 码 如 下 : 


clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


warning off を 取消 警告 

feature jit off $ 加 速 通道 

%% 导入 数据 

$ 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 

$ get output SX; 名 上 证 指数 的 3 个 状态 
$ get input index4; $ 趋势 指标 

$ get input index5; % 反 趋势 指标 


$ save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
Clear closeprice highprice lowprice openprice tradingvolumn 


%% 归 一 化 

る 分 析 index4 趋 势 指标 

% 指标 ，ACD- 升 降 线 指标 、ADX- 动 向 平均 数 指标 、BBI- 多 空 指数 、 

S CHO- 佳 庆 指标 、CYE- 市 场 趋势 指标 、DDI- 方 向 标准 离 差 指数 、 

H -平均 线 差 、DMI- 趋 向 指标 、 简易 波动 指标 、GDX- 鬼 道 线 指标 、 
S JLHB- 绝 路 航标 、JS- 加 速 线 指标 、 滑 异同 平均 指标 、 
à 
$ 


DS 


动向 指标 、MTM- 动 力 指标 、OSC -变动 速率 线 、PBX- 瀑 布线 指标 、 
向 指标 、QACD- 快 速 异 同 平均 指标 、QR- 强 弱 值 指标 
前 数 平滑 平均 线 、UOS- 终 极 指标 、VMA- 变 异 平 均线 指标 


index x ue ,l:end-1); % 前 一 天 指标 值 2 
index ` :,length (SX) -size (index x,2)41:enq); る 第 二 天 的 涨幅 状态 
$ 对 index JÈ -化 处 理 
for i-1:size (index : X, 2 

x-[ る 初始 化 » 

x - index x(i,: n s 逐个 获取 指标 数据 

[x, setting] = mapminmax (x); を x 归 一 化 

settings(i,1) = setting; % 归 一 化 参数 

index xx(i,:) = x; $ 重新 赋值 
end 


运行 程序 得 到 如 图 7-7 所 示 结 果 。 
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归 一 化 处 理 数 据 主要 是 为 了 防止 大 数 吃 小 数 ， 从 而 影响 神经 网 络 内 部 迭代 分 析 。 
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采用 mapminmax 函 数 得 到 的 相应 的 归 一 化 参数 如 图 7-8 所 示 。 
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图 7-8” 归 一 化 参数 
归 一 化 参数 记录 了 每 个 指标 的 归 一 化 参数 ， 具 体 的 归 一 化 公式 如 下 : 
x2= (ymax-ymin) .* (xl-xmin) ./ (xmax-xmin) +ymin 


其 中 x1 为 待 归 一 化 的 数据 ，x2 是 归 一 化 后 的 数据 。 如 图 7-8 所 示 ， 程 序 返回 了 每 个 指标 归 一 化 涉及 的 ymax、ymin、xmin、xmax 值 。 


采用 BP 神 经 网 络 工具 箱 进行 上 证 指数 的 上 涨 、 平 衡 态 、 下 跌 状 态 预测 分 析 。 


(3) 上 证 指数 的 上 涨 、 平 衡 态 、 下 跌 状 态 绘制 图 形 ， 具 体 得 到 如 图 7-9 所 示 图 形 。 
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7-9 上 证 指数 3 种 状态 图 形 


统计 上 证 指数 历年 来 的 上 涨 、 下 跌 和 平衡 状态 的 次 数 ， 具 体 代码 如 下 : 


>> length (find (SX==1) ) 
ans = 

2423 
>> length (find (SX==-1) ) 
ans = 

2195 
>> length (find (SX==0) ) 
ans = 


1 


整体 上 上 涨 和 下 跌 各 占 一 半 ， 上 证 指数 连续 两 天 为 同一 指数 的 次 数 为 次， 上涨 2423 次 ， 下 跌 2195 次 ， 因 此 可 得 到 上 证 指数 整体 上 是 上 涨 的 。 


(4) 用 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指标 、CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DMI 趋 向 指标 、EMV 简 易 波 动 指标 、GDX 鬼 道 线 指 
标 、 儿 HB 绝路 航标 、Js 加 速 线 指标 、MACD 平 滑 异 同 平均 指标 、MDI 下 降 动向 指标 、MTM 动 力 指标 、OSC 变 动 速率 线 、PBX 瀑 布线 指标 、PDI 上 升 动向 指标 、QACD 快 速 异 同 平均 指标 、QR 强 弱 值 指标 、 
TRIX 三 重 指数 平滑 平均 线 、UOS 终 极 指标 、VMA 变 异乎 均线 指标 的 归 一 化 数值 作为 BP 神 经 网 络 的 输入 ， 上 证 指数 的 3 个 状态 值 作为 BP 神 经 网 络 的 输出 ， 即 输入 层 节点 数 为 32， 输 出 层 节点 数 为 1， 隐 藏 层 节 
点 数 由 读者 自己 设 定 。 


%% 网 络 结构 

inputnum = 32; 
hiddennum - 10; 
outputnum = 1; 


net-newff (minmax (index xx), [hiddennum, outputnum], ('tansig', 'tansig'), 'trainlm'); $ 新 建 BP 网 格 
% 当前 输入 层 权 值 和 阔 值 

inputWeights-net.IW(1,1); る 输入 的 权 值 

inputbias-net.b(1); S 输入 的 闵 值 

S 当前 网 络 层 权 值 和 阔 值 

layerWeights=net .LW{2,1}; % 输出 层 的 权 值 

layerbias-net.b(2); S HEERE 


% 设置 训练 参数 
net.trainParam.show = 50; 
net.trainParam.lr = 0.01; 
net.trainParam.mc = 0.9; 
net.trainParam.epochs - 1000; 
net.trainParam.goal = 1e-10; 


(5) 设 定好 神经 网 络 结构 后 ， 接 下 来 进行 神经 网 络 的 预测 ， 具 体 代 码 如 下 : 


%% 网 络 预测 
$ 调用 TRAINGDM 算法 训练 BP 网 络 


[net, tr]-train(net, index xx, index y); 


S 对 BP 网 络 进行 仿真 


A train = sim(net,index xx); 


% 计算 仿真 误差 


Error = index y - A train; 


% 均 方 误差 


disp ' 网 络 训 练 均 方 误差 ' 


MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
hold on 

plot(A train, 'bs--','linewidth',2) 
legend(' 实 际 值 ', " 給 出 値 ") 


figure(2), 
plot (Error) 
title(' 预 测 误差 ') 


运行 程序 ， 得 到 如 图 7-10 所 示 的 BP 神经 网 络 训练 图 。 
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-Algorithms 
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图 7-10 ”BP 神经 网 络 训练 图 


如 图 7-10 所 示 ， 神 经 网 络 的 结构 上 显示 了 输入 为 32， 隐 藏 层 为 10， 输 出 为 1， 具 体 如 图 7-11 所 示 。 


Neural Network 


图 7-11 神经 网 络 结构 


如 图 7-11 所 示 ， 此 网 络 结构 为 32-10-1， 用 时 4 分 23 秒 。 


运行 程序 ， 得 到 如 图 7-12 ~ 图 7-14 所 示 预 测 结果 。 
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742 训练 误差 迭代 图 


Gradient = 0.00075445, at epoch 1000 


Mu = 0.0001, at epoch 1000 


Validation Checks =0, at epoch 1000 


图 7-13 训练 状态 图 


E 
E 


| 4 Neural Network Training Regression (plotregression), Epoch 1... |- |=) ||ese] 
HHE SEE) Sv AO 工具 中 SMO UOM) 帮助 (H) a 


Training: R=0.44229 


Output ~= D.2* Target + 0.042 


-1 .6 Ü 0.5 1 
Target 


图 7-14 ”数据 拟 合 结果 
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司 7-14 所 示 ， 拟 合 误 差 较 大 ， 但 是 基本 能 够 反映 上 涨 、 下 跌 的 相对 大 小 关系 。 


运行 程序 ， 得 到 相应 的 预测 结果 如 图 7-15 所 示 。 
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图 7-15 上 证 指数 预测 结果 


预测 均 方 根 误差 为 : 


MSE = 


0.9712 


预测 误差 如 图 7-16 所 示 。 
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7-16 预测 误差 


完整 代码 如 下 : 

clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗 口 
warning off s 取消 警告 

feature jit off を 加 速 通道 

$* 导入 数据 

$ 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 

$ get output SX; $ 上 证 指数 的 3 个 状态 

$ get input index4; る 趋势 指标 

$ get input index5; $ 反 趋 势 指标 


save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 


load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


$& 归 一 化 
る 分 析 index4 趋 势 指标 

% 指标 : ACD- 升 降 线 指标 、ADX- 动 向 平均 数 指标 、BBI- 多 空 指数 、 

% CHO- 佳 庆 指标 、CYE- 市 场 趋势 指标 、DDI- 方 向 标准 离 差 指数 、 

S DFMA -平均 线 差 、DMI- 趋 向 指标 、EMV- 简 易 波动 指标 、GDX- 鬼 道 线 指标 、 


JLHB- 绝 路 航标 、JS- 加 速 线 指标 、MACD -平滑 异同 平均 指标 、 

MDI- 下 降 动向 指标 、MITM- 动 力 指标 、0OSC -变动 速率 线 、PBX- 瀑 布线 指标 、 
上 升 动向 指标 、QACD- 快 速 异 同 平均 指标 、QR- 强 弱 值 指标 。 _ 

数 平滑 平均 线 、UOS- 终 极 指标 、VMRA- 变 异 平均 线 指标 


index x = ORE ;l:end-1); 名 前 一 天 指标 值 VEUF. 
index y = SX(:, length (SX) -size (index x,2)*1:end); % 第 二 天 的 涨幅 状态 


$ Misdex ILICA 


for i-1:size(index x,1) 


x = []; % 初始 化 
x = index x(i,:); s 逐个 获取 指标 数据 
[x,setting] = mapminmax (x); s x 归 一 化 
settings(i,1) = setting; % 归 一 化 参数 
index xx(i,:) = x; $ 重新 赋值 

end 

ss 网 络 结构 

inputnum = 32; % 输入 层 节点 数 

hiddennum = 10; S 隐藏 层 节点 数 

outputnum = 1; % 输出 层 节 点 数 


net-newff (minmax (index xx), [hiddennum, outputnum], ('tansig', 'tansig'), 'trainlm'); る 新 建 BP 网 格 


る 当前 输入 层 权 值 和 阐 值 


inputWeights-net.IW(1,1); s 输入 的 权 值 
inputbias-net.b(1); を 输入 的 阔 值 

% 当前 网 络 层 权 值 和 阔 值 

layerWeights=net .LW{2,1}; を 输出 层 的 权 值 
layerbias-net.b(2); を 输出 层 的 阔 值 

% 设置 训练 参数 は 
net.trainParam.show = 50; を 显示 间隔 
net.trainParam.lr = 0.01; % 学 习 率 
net.trainParam.mc = 0.9; s 动量 因子 
net.trainParam.epochs = 1000; HE 
net.trainParam.goal - 1e-10; % 学习 目 标 


ss 网 络 预测 


% 调用 TRAINGDM 算法 训练 BP 网 络 
[net, tr]-train(net, index xx, index y); 


を X BP 网 络 进行 仿真 


A train = sim(net,index xx); 


% 计算 仿真 误差 

Error = index ty =A | train; 
$ 均 方 误差 

disp ' 网 络 训 练 均 方 误差 ' 

MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
hold on 

plot (A train, 'bs--', 'linewidth',2) 
legend(' 实 际 值 '，' 输 出 值 ') 


figure(2), 
plot (Error) 
title(' 预 测 误差 ') 


(6) 对 未 来 一 天 进行 预测 ， 具 体 代 码 如 下 : 


%% 预测 
x1 = index x(:,end); る 最 后 一 列 指标 数据 
x2-[]; $ 和 初始 化 
for i-1: pice (index x,1) 
x2(i,1)= (settings(i,1].ymax-settings(i,1).ymin).*(x1l(i)-settings(i,1).xmin)./(settings(i,1].xmax-settings(i,1).xmin)-http://www.hzcourse.com/resource/readBook?path-/openre 
settingsí(i,l).ymin; 
end 
B train = []; $ 初始 化 
B train = sim(net,x2); を 预测 


disp([' 未 来 一 天 预测 值 为 ”', num2str (B train)]) 
if B train>=0 


disp(' 未 来 一 天 上 涨 的 可 能 性 更 大 ! n) 
disp(' 未 来 一 天 回调 的 可 能 性 更 大 ! t) 


end 


else 


运行 程序 得 到 如 下 结果 : 


未 来 一 天 预测 值 为 ”0.34961 
未 来 一 天 上 涨 的 可 能 性 更 大 ! 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ,投资 者 可 在 2016 年 6 月 2 日 着 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 (本 书 涉及 的 算法 预测 结果 ， 仅 供 参 考 


74 ”基于 反 趋势 指 标的 BP 网 络 预测 


本 节 基 于 反 趋势 指标 ， 作 为 神经 网 络 的 输入 ， 输 出 为 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 ， 以 及 输入 为 21 个 ， 输 出 为 1 个 ， 用 于 预测 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 。 


(1) 上 证 指数 下 跌 为 -1， 平 衡 态 为 0， 上 涨 为 1。 


(2) 归 一 化 输入 的 21 个 反 趋 势 指标 ,具体 如 下 : 


clc,clear,close all 
warning off 
feature jit off 


%% 导入 数据 

% 1 表示 上 涨 ，0 表 示 平 衡 ， CUNT 

$ get output SX; る 上 证 指数 的 3 个 状态 
$ get input index4; % 趋势 指标 

$ get input index5; を 反 趋 势 指标 


% save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


$5 归 一 化 

$ 分 析 index4 趋 势 指标 _ 

% 指标 ，ACCER- 幅 度 涨 速 指标 、RADTM- 动 态 买卖 人 气 指标 、BB- 布 林 极 限 指标 、 

名 BIRAS- 乖 离 率 指标 、CCI- 顺 势 指标 、CYF- 市 场 能 量 指标 、DBCD- 异 同 离 差 乱 离 


率 指标 、 
沪 线 指标 、FSL- 分 水 岭 指标 、， KDJ- 随机 指标 、 — 
LWR- Likes. ROC- 变 动 速率 指标 、RSI- 相 对 强 弱 指 标 、SKDJ- 慢 速 随机 指标 、 
SI- 摆 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指 标 、WR=- 威 廉 指 标 、WIDTH- 布 林 极 限 宽度 指标 


index x = RIS ;l:end-1); $ 前 一 天 指标 值 
index y = SX(:,length(SX)-size (index x,2)*1:end); s 第 二 天 的 涨幅 状态 
% 対 index xd ACIER 


for i-1:size (index x,1) 


= 日: ú s 初始 化 
x = index x(i,:); を 挨个 挨个 获取 指标 数据 
[x, setting] = mapminmax (x); % x 归 一 化 
settings{i,1} = setting; $ 归 一 化 参数 
index xx(i,:) = x; % 重新 赋值 


end 


运行 程序 ， 得 到 如 图 7-17 所 示 结 果 。 


1 -0.9703 
-0.0848 -0.0882 
-0.3022 0.0946 

0.20084 0.2113 


-0.9330 -0.9318 
-0.1122 -0.1108 
01805 041947 
02725 02822 
01313 02716 
0.3103 0.3072 
-0.4607 -0.2503 
-0.1292  -02962 

-0.6221 

-0.5500| 

0.2011 


^ oocn 


归 一 化 处 理 数 据 主要 是 为 了 防止 大 数 吃 小 数 ， 从 而 影响 神经 网 络 内 部 迭代 分 析 。 
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图 7-17” 归 一 化 处 理 
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(3) BACCERIRE REE ADTMISLRA SHE. BBARR BIASA CCIRA CYF DBCORAA ARAR DKS Sm DPODXIBIESE AE 


标 、FSL 分 水 岭 指标 、KDJ 随 机 指标 、LWR-L 威 廉 指 标 、ROC 变 动 速率 指标 、RSI 相 对 强 弱 指标 、SKDJ 慢 速 随机 指标 、SI 摆 动 指标 、SRDM 动 向 速 | 
极限 宽度 指标 的 归 一 化 数值 作为 BP 神 经 网 络 的 输入 ， 上 证 指数 的 3 个 状态 值 作为 BP 神 经 网 络 的 输出 ， 即 输入 层 节点 数 为 21， 输 出 层 节点 数 为 1， 隐 藏 层 节点 数 由 读者 自己 设 定 。 


度 比率 指标 、UDL 引 力 线 指标 、WR 威 廉 指标 、WIDTH 布 林 


ss 网 络 结构 


inputnum = 21 $ 输入 层 节点 数 
hiddennum = 10; % 隐藏 层 节 点 数 
outputnum = 1; る 输出 层 节 点 数 


net-newff (minmax (index xx) , [hiddennum, outputnum], ('tansig','tansig'),'trainlm');  % 新 建 BP 网 格 


% 当前 输入 层 权 值 和 阔 值 
inputWeights-net.IW(1,1); gs 输入 的 权 值 


inputbias-net.b(1); S HA BUL 


る TRU UAR JECBUEURTBU (P 
layerWeights-net.1W(2,1); % 输出 层 的 权 值 
る 


layerbias-net.b(2); Arti E RET 
s 设置 训练 参数 

net.trainParam.show = 50; る 显示 间隔 
net.trainParam.lr = 0.01; % 学 习 率 
net.trainParam.mc = 0.9; % 动量 因子 
net.trainParam.epochs = 1000; % 学 习 次 数 
net.trainParam.goal = 1e-10; る 学 习 目 标 


(4) 设 定好 神经 网 络 结构 后 ， 接 下 来 进行 神经 网 络 的 预测 ， 具 体 代码 如 下 : 


ss 网 络 预测 
% 调用 TRAINGDM 算法 训练 BP 网 络 


[net, tr]-train(net, index xx, index y); 


S 对 BP 网 络 进行 仿真 


A train = sim(net,index xx); 


$ 计算 仿真 误差 

Error = index y - A train; 
& 误差 

disp ' 网 络 训 练 均 方 误差 ' 


MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
hold on 

plot(A train, 'bs--','linewidth',2) 
legend(' 实 际 值 ',' 输 出 值 ') 


figure(2), 
plot (Error) 
title( "预测 误 差 ') 


运行 程序 ， 得 到 如 图 7-18 所 示 的 BP 神 经 网 络 训练 图 。 
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r Plots Plots 


(plotperform) (plotperform) 
(plottrainstate) Training State (plottrainstate) 


(plotregression) (plotregression) 


Plot Interval: Ü - : : Plot Interval: Ü 


@ Training neural network... Maximum epoch reached. 


© Stop Training | | o Cancel | 


图 7-18 ”BP 神经 网 络 训练 图 


如 图 7-18 所 示 ， 神 经 网 络 的 结构 上 显示 了 输入 为 21， 隐 藏 层 为 10， 输 出 为 1， 具 体 如 图 7-19 所 示 。 


Neural Network 一 


图 7-19 神经 网 络 结构 


如 图 7-19 所 示 ， 此 网 络 结构 为 21-10-1， 用 时 4 分 23 秒 。 


运行 程序 ， 得 到 如 图 7-20 ~ 图 7-22 所 示 预 测 结果 。 
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图 7-20 训练 误差 迭代 图 


Š Gradient = 0.00012685, at epoch 1000 
10 


10? 


gradient 


10 
Mu = 0.001, at epoch 1000 


Validation Checks = 0, at epoch 1000 
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图 7-21 训练 状态 图 
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7-22 ”数据 拟 合 结果 


如 图 7-22 所 示 ， 拟 合 误差 较 大 ， 但 是 基本 能 够 反映 上 涨 、 下 跌 的 相对 大 小 关系 。 


运行 程序 ， 得 到 相应 的 预测 结果 如 图 7-23 所 示 。 


る | Figure 1 
文件 (F) S80 EEV 插入 IRO SEO 窗口 (W) $B8(H) 
G dt °S Ñ $, y 09 9) ve ac - ol D 图 | mm 


500 


预测 均 方 根 误差 为 : 


MSE = 


0.8012 


2500 


图 7-23 ”上 证 指数 预测 结果 


较 之 于 趋势 指标 预测 结果 ， 基 于 反 趋 势 指 标的 BP 网 络 预测 的 性 能 优 于 基 了 


趋势 指标 的 BP 网 络 预测 的 性 能 。 


预测 误差 如 


7-24 所 示 。 
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预测 误差 
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7-24 预测 误差 


完整 代码 如 下 : 

clc,clear, close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 

feature jit off s 加 速 通道 

$* 导入 数据 

る 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 

$ get output SX; る 上 证 指数 的 3 个 状态 

$ get input index4; % 趋势 指标 

$ get input index5; S 反 趋 势 指标 


% save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
Clear closeprice highprice lowprice openprice tradingvolumn 


$5 归 一 化 

る 分 析 index4 趋 势 指标 A 

S 指标: ARCCER- 幅 度 涨 速 指标 、ADTM- 动 态 买 卖 人 气 指标 、BB- 布 林 极 限 指标 、 

る BIAS- 乖 离 率 指标 、CCI- 顺 势 指标 、CYF-~ 市 场 能 量 指标 、DBCD- 异 同 离 差 乖 离 率 指标 、 


DKX- 多 空 线 指标 、DPO- 区 间 震 荡 线 指标 、FSL- 分 水 岭 指标 、 ”KDJ- 随 机 指标 、 
LNR-I 威 廉 指 标 、ROC- 变 动 速率 指标 、RSI- 相 对 强 弱 指 标 、SKDJ- 慢 速 随机 指标 、 
SI- 摆 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、VR=- 威 廉 指标 、WIDTH- 布 林 极 限 宽度 指标 


index x = index5(:,1:end-1); % 前 一 天 指标 值 

index y = SX(:,length(SX)-size (index x,2)*1:end); る 第 二 天 的 涨幅 状态 

$ 对 index x 归 一 化 处 理 

for i-1:size (index x,1) 
x = []; る 初始 化 
x = index x(i,:); 
[x,setting] = mapminmax (x); 
settings(i,l) = setting; 
index xx(i,:) X 


end 


%% 网 络 结构 
inputnum = 21; % 输入 层 节点 数 
hiddennum = 10; S 隐藏 层 节点 数 
outputnum = 1; E 

) 


net-newff (minmax (index xx), [hiddennum, outputnum], ('tansig','tansig'), 'trainlm'); % 新 建 BP 网 格 
% 当前 输入 层 权 值 和 阔 值 

inputWeights-net.IW(1,1); % 输入 的 权 值 

inputbias-net.b(1); を 输入 的 阔 值 

S 当前 网 络 层 权 值 和 阔 值 

layerWeights-net.LW(2,1); る 输出 层 的 权 值 

layerbias-net.b(2); S A JR h I 

$ 设置 训练 参数 E uos 

net.trainParam.show = 50; を 显示 间隔 

net.trainParam.lr = 0.01; & 学 习 率 


net.trainParam. epoch: 
net.trainParam.goal 


ss 网 络 预测 
s 调用 TRAINGDM 算法 训练 BP 网 络 


net.trainParam.mc = 0.9; 
g= 


net, tr]=train (net, index xx, index y); 
对 BP 网 络 进行 仿真 


A train - sim(net,index xx) ; 


$ 计算 仿真 误差 

Error — index y - A train; 
% 均 方 误差 

disp "网 络 训练 均 方 误差 


MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
hold on ` 

plot (A ! train, 'bs--','linewidth',2) 
legend(' 实 际 值 ',' 输出 值 ， ) 


figure(2), 
plot (Error) 
title( "预测 误 差 ') 


(5) 对 未 来 一 天 进行 预测 ， 具 体 代码 如 下 : 


m x(:,end); s 最 后 一 列 指标 数据 


Tor i- zi size (index x,1) 
x2(i,1)- (settings(i,1].ymax-settings(i,1).ymin).* (x1(i)-settings(i,1).xmin)./(settings(i,1).xmax-settings[i,1).xmin)-http://www.hzcourse.com/resource/readBook?path-/openre 
settings(i,l).ymin; 
end 


D; % 初始 化 


B train 
sim(net,x2); を 预测 


B train 


disp([' 未 来 一 天 预测 值 为 ”',num2str(B_train)]) 
if B train>=0 


disp(' 未 来 一 天 上 涨 的 可 能 性 更 大 ! ') 
disp(' 未 来 一 天 回调 的 可 能 性 更 大 ! ') 


end 


else 


运行 程序 得 到 如 下 结果 : 


未 来 一 天 预测 值 为 ”0.6511 
未 来 一 天 上 涨 的 可 能 性 更 大 ! 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ， 则 投资 者 可 在 2016 年 6 月 2 日 着 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 (本 书 涉及 的 算法 预测 结果 ， 仅 供 参 考 ) 。 


7.5 ”基于 趋势 和 反 趋 势 指 标的 BP 网 络 预测 


接 下 来 我 们 将 趋势 指标 和 反 趋 势 指标 合 二 为 一 ， 进 行 BP 网 络 预测 ， 具 体 代码 如 下 : 


clc,clear,close all 
warning off 
feature jit off 


%% 导入 数据 d 

% 1 表示 上 涨 ，0 表 示 平衡 ，- 1 为 下 跌 

$ get output SX; を 上 证 指数 的 3 个 状态 
$ get input index4; % 趋势 指标 

$ get input index5; を 反 趋 势 指标 


% save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


$5 合并 趋势 指标 和 反 趋 势 指标 


L4 = size (index4,2); s 每 一 行 的 长 度 
L5 = size (index5,2); s 每 一 行 的 长 度 
if L4«L5 


index45-[index4; index5(:,end-L4*1:end)]; 
elseif L4--L5 

index45-[index4; index5]; 
elseif L4>L5 

index45- [index4 (:,end-L541:end);index5]; 
end 


s 归 一 化 
分 析 index4 趋 势 指 标 

趋势 指标 : ACD- 升 降 线 指标 、ADX- 动 向 平均 数 指标 、BBI- 多 空 指数 、 
CHO- 佳 庆 指 标 、CYE- 市 场 趋势 指标 、DDI- 方 向 标准 离 差 指数 、 
DEMA -平均 线 差 、DMI- 趋 向 指标 、EMV- 简 易 波动 指标 、GDX- 鬼 道 线 指标 、 
JLHB- 绝 路 航标 、JS- 加 速 线 指标 、MACD 平滑 异同 于 均 指标 、 
MDI- 下 降 动 向 指标 、MTM- 动 力 指标 、 变动 速率 线 、PBX- 瀑 布线 指标 、 
EDI- 上 升 动向 指标 、 OACD- 快 速 异 同 平均 指标 、 QR- 强 弱 值 指标 


TRIX 指数 平滑 平均 线 、UOS- 终 极 指标 、VMA- 变 异 平均 线 指标 
反 趋势 指标 : ACCER- 幅 度 涨 速 指标 、ADTM- 动 态 买卖 人 气 指标 、BB- 布 林 极限 指标 、 
e 指标 、CCI- 顺 势 指标 、CYF- MANEA, DBCD-5t E] B 25 eA di bn. 
DKX- 多 空 


首 标 、DPO- 区 间 震 荡 线 指标 、EFSL- 分 水 岭 指 标 、 ”KDJ- 随 机 指标 、 
LWR-IL 威 廉 指标 、ROC- 变 动 速率 指标 、RSI- 相 对 强 弱 指标 、SKDJ- 慢 速 随机 指标 、 
SI- 损 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、WR- 威 廉 指 标 、WIDTH- 布 林 极限 宽度 指标 


index x = index45(:,1:end-1); 前 一 天 指标 值 
index y = SX(:,length(SX)-size (index x,2)+1:end); 第 二 天 的 涨幅 状态 


对 index_x 归 一 化 处 理 


for i-1:size(index x,1) 


x = []; & 初始 化 

x = index x(i,:); & 逐个 获取 指标 数据 
[x, setting] = mapminmax (x); を x 归 一 化 
settings(i,l) = setting; を 归 一 化 参数 
index xx(i,:) = x; を 重新 赋值 


end 


%% 网 络 结构 

inputnum = 53; Ei m 
hiddennum - 20; $ 隐藏 层 : 
outputnum = 1; を ai 
net-newff (minmax (index xx), [hiddennum, outputnum] , ('tansig','tansig'), 'trainlm'); % 新 建 BF 网 格 


る 当前 输入 层 权 值 和 阔 值 
inputWeights-net.IW(1,1); を 输入 的 权 值 
inputbias-net.b(1); S $A BUL 


EDI EE 
layerWeights-net.LW(2,1); 输出 层 的 权 值 
layerbias-net.b(2); & 输出 层 的 阔 值 


op 


% 设置 训练 参数 

net.trainParam.show 
net.trainParam.lr = 
net.trainParam.mc — 
net.trainParam.epoch: 
net.trainParam.goal 


ss 网 络 预测 
% 调用 TRAINGDM 算法 训练 BP 网 络 
[ 


net, tr]-train(net, index xx, index y); 


10 oo I 
Sed 
se 


$$ X BP 网 络 进行 仿真 


A train = sim(net,index xx); 


$ 计算 仿真 误差 
Error = index y - A train; 


% 均 方 误差 
disp ' 网 络 训 练 均 方 误差 ' 


MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
holdon ` 

plot(A train, 'bs--', 'linewidth',2) 
legend(' 实 际 值 ',' 输 出 值 ') 


figure(2), 
plot (Error) 
title(" 预 测 误差 ') 


%% 预测 
x1 = index x(:,end); を 最 后 一 列 指标 数据 
x2-[]; % 初始 
for i-1:size(index x,1) 
x2 (1,1)= (settings(i,1].ymax-settings(i,1).ymin).* (x1l(i)-settings(i,1).xmin)./(settings(i,1).xmax-settings(i,1).xmin)-http://www.hzcourse.com/resource/readBook?path-/openre 
settings[(i,l).ymin; 
end 
BE 初始 化 


B train る 
sim(net,x2); s 预测 


B train 


disp([" 未 来 一 天 预测 值 为 ',num2str(B train)]) 


if B train>=0 


disp (" 未 来 一 天 上 涨 的 可 能 性 更 大 ! ') 
disp (" 未 来 一 天 回调 的 可 能 性 更 大 ! 1) 


else 


end 


运行 程序 ， 得 到 如 图 7-25 所 示 的 BP 神 经 网 络 训练 图 。 


Neural Network 
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图 7-25 BP4#2 e AE AER 


如 图 7-25 所 示 ， 神 经 网 络 的 结构 上 显示 了 输入 为 53， 隐 藏 层 为 20， 输 出 为 1， 具 体 如 图 7-26 所 示 。 


Neural Network 


图 7-26 神经 网 络 结构 


如 图 7-26 所 示 ， 网 络 结构 为 53-20-1， 相 应 的 计算 时 间 也 是 逐步 增 大 ， 然 而 也 会 根据 读者 自 设 的 参数 自动 提前 终止 。 在 这 53 个 指标 中 ， 读 者 可 以 采用 降 维 处 理 ， 从 而 得 到 主 成 分 指标 ， 再 进行 BP 神 经 网 
络 的 预测 研究 ， 提 高 运行 速度 。 


运行 程序 ， 得 到 如 图 7-27 ~ 图 7-29 所 示 预 测 结果 。 
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图 7-27 ”训练 误差 迭代 图 


SA Gradient = 7.7745e-08, at epoch 133 
10 


Mu = 1e-10, at epoch 133 


Validation Checks = 0, at epoch 133 


图 7-28 训练 状态 图 
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图 7-29 ”数据 拟 合 结果 


如 图 7-29 所 示 ， 拟 合 误差 较 大 ， 但 是 基本 能 够 反映 上 涨 、 下 跌 的 相对 大 小 关系 。 


运行 程序 ， 得 到 相应 的 预测 结果 如 图 7-30 所 示 。 
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图 7-30 上 证 指数 预测 结果 


预测 均 方 根 误差 为 : 


MSE = 


0.3731 


较 之 于 趋势 指标 预测 结果 ， 基 于 趋势 和 反 趋 势 指 标的 BP 网 络 预测 的 性 能 优 于 基于 趋势 〈 反 趋势 ) 指标 的 BP 网 络 预测 的 性 能 。 预 测 误差 如 


7-31 所 示 。 
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预测 结果 如 下 : 
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H7-3 预 


测 误差 


未 来 一 天 预测 值 为 0.99993 
未 来 一 天 上 涨 的 可 能 性 更 大 ! 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ， 则 投资 者 可 在 2016 年 6 月 2 日 逢 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 (本 书 所 涉及 的 算法 预测 结果 ， 仪 供 参 考 ) 。 


第 8 章 RBF 神经 网 络 多 指标 预测 


RBF 网 络 把 网 络 看 成 对 未 知 函 数 的 逼近 器 。 一 般 任何 函数 都 可 表示 成 一 组 基 函 数 的 加 权 和 ， 相 当 于 上 
是 一 种 非 线性 映射 ， 而 输出 则 是 线性 的 。 RBF 在 数据 预测 方面 表现 极 好 的 应 有 


隐藏 层 单元 的 输出 函数 构成 一 组 基 函 数 来 逼近 目标 函 数 ; RBF 网 络 中 以 输入 层 到 隐藏 层 的 基 函 数 输 出 


优势 。 本 章 通过 选取 多 指标 来 构建 神经 网 络 的 输入 层 ， 具 体 的 多 指标 有 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、 


CHO 佳 庆 指 标 、CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DMI 趋 向 指标 、EMV 简 易 波动 指标 、GDX 鬼 道 线 指标 和 儿 HB 绝路 航标 等 。 


8.1 RBF 神经 网 络 


BP 神经 网 络 是 一 种 常用 的 神经 网 络 ， 采 
最 佳 的 输出 结果 。 


反 向 传播 的 方式 ， 进 行 数据 的 训练 仿真 ， 由 输入 层 、 隐 藏 层 和 输出 层 构 成 。BP 神 经 网 络 对 输入 的 信息 具有 自我 学 习 的 功能 ， 通 过 调整 适当 的 阔 值 和 权 值 ， 得 到 


RBF 网 络 的 学 习 过 程 与 BP 网 络 的 学 习 过 程 类 似 ， 两 个 神经 网 络 的 主要 区 别 在 于 各 使 用 不 同 的 作用 函数 。BP 网 络 中 隐藏 层 使 用 的 是 Sigmoid 函 数 ， 其 值 在 输入 空间 中 无 限 大 的 范围 内 为 非 0 值 ， 因 而 是 一 


种 全 局 逼近 的 神经 网 络 ， 而 RBF 网 络 中 的 作用 


RBF 网 络 特点 如 下 : 


逊 数 是 高 斯 基 水 数 ， 其 值 在 输入 空间 中 有 限 范 


围 内 为 非 0 值 ， 


因为 RBF 网 络 是 局 部 逼近 的 神经 网 络 。 


“RBF 网 络 的 作用 函数 为 高 斯 函数 。 
“ 需要 用 户 自己 确定 RBF 网 络 隐藏 层 节点 的 中 心 及 基 宽 度 参数 。 


“RBF 网络 具有 全 局 寻 优 的 特点 。 


8.2 ”RBF 网 络 结构 


RBF 网 络 是 一 种 三 层 前 向 网 络 ， 由 于 输入 到 输出 的 映射 是 非 线性 的 ， 而 隐 含 层 空间 到 输出 空间 的 映射 是 线性 的 ， 从 而 可 以 大 大 加 快 学 习 速 度 并 避免 局 部 极 小 问题 。 


多 输入 单 输 出 的 RBF 网 络 结构 如 图 8-1 所 示 。 
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图 8-1 RBF 神经 网 络 结构 


在 RBF 网 络 结构 中 ，X= [x1，x2，x3，x4…xn] 为 网 络 的 输入 向 量 。 


设 RBF 网 络 的 径 向 基 疝 量 H=[h1，h2，ha，h4，…，hnl7， 其 中 h 为 高 斯 基 函 数 ， 即 


ド -gl 


j=1,2,---,m (8.1) 
2b; 


h, —exp| 一 


J 


[4 


I 
式 (8.1) 中 ， 网 络 第 | 个 节点 的 中 心 向 量 为 C, = [estote] ，j=1，2，…，n。 


设 神经 网 络 的 基 宽 向 量 为 : 


B - [bb bb (8.2) 


其 中 , bp BEgBUEGESSR, El 08522, 


网 络 的 权 向 量 为 : 


W -[w.w,, ww ] 


n 


RBF 网 络 的 输出 为 ; 
y, (k)= wh wh, t wh, 


RBF 网 络 逼 近 的 性 能 指标 函数 为 : 


T 
E(k)=—(y(k)- v, (k)) 
根据 梯度 下 降 法 ， 输 出 权 值 、 节 点 基 宽 参数 以 及 节点 中 心 矢量 的 迭代 算法 如 下 : 


w (k)=w(k-1)+n(y(k)- y,(k))h, * a(w, (k 21) -w, (k —2)) 


b, (k) =b, (k—-1)* mAb, *a(b, (k-1)-5, (k-2)) 


X —C., 


Ac; = (y (k) — Xn (k)) wh; "EC 
j 


c, (k) c (k 1) * m^c,, * a (c; (k -1)- c, (k - 2)) 


式 (8.6) ~ 式 (8.8) , 式 (8.9) 、 式 (8.10) 中 ，n 为 学 习 速 率 ，c 为 动量 因子 ，nE[0，1，caxE[0，1]。 


RBF 人 迭代 程序 编程 如 下 : 


(8.3) 


(8.4) 


(8.5) 


(8.6) 


(8.7) 


(8.8) 


(8.9) 


(8.10) 


る RBF 网 络 逼 近 函 数 程序 
function [fitness]-PSO RBF(p,train data,train output data) 


% 网 络 学 习 参 数 


alfa-0.08; à 因子 
xite-0.7; % 学 习 因 子 

る x-[0,0,0,0,0]'; を 初始 值 
% 节点 个 数 

inputnum = 5; 

hiddennum = 6; 


outputnum = 5; 


% b-1.5*ones (hiddennum, 1); 
$ c-0.5*ones (inputnum, hiddennum) ; 


1);p(2);p(3);p(4) ip(5) ;p(6) 
9) ,p(10) ,p(11) ,p( 


fitness -0; % 适应 度 值 初始 化 


for k-1:size(train data, 1) 


x-[];x = train data(k,:)'; % 输入 值 
y-l];y = train output data(k, :)'; s 输出 值 


for j=1:1:hiddennum 
h (3)=exp (-norm(x-c(:,j))^2/ (2*b(j)*b(j))); LESTIE TU 


end 
ym = w'*h'; 
em = y - ym; 


d w-0*w; 
d b-0*b; 
d c-0*c; 
for ]=1:1:hiddennum 
for kk=1 : outputnum 
d w(j,kk)-xite*em(kk) *h (j); 
end 
d b(j)-xite*em'*w(j, 
for i-1:1:inputnum 
d c(i,j)-xite*em'*w(j, 
end 


:) ! *h (3) * (b (3) ^-3) *norm (x-c (:,3)) ^2 
z) '*h(j)* (x()-7c0,3))*(050)^-2); 
end 

w=w_1+ d wtalfa* 


( 
b-b 1+d b*alfa* (b 
eec: : 14d. | ctalfa*(c : 


fitness = fitness + sum(sum( abs (em) 


)); 


end 


调用 PSO_RBF 函 数 的 主 函 数 为 : 


clc clear, close all $ 清理 命令 区 、 清 理工 作 区 、 关 闭 显 示 图 形 
warning off % 消除 警告 

feature jit off を 加 速 代码 运行 

format long $ 数据 类 型 

tic % 运算 计时 


% data = xlsread('data0.xls',1, 'A1:K250'); 
$ save data.mat data 
load('data.mat'); 
traindata = data(:,2:end) ; 
testdata = data(:,2:end); $ 输出 样本 


% 训练 样本 数 

% 训练 样本 输入 值 
% 训练 样本 输出 值 
% 测试 样本 输入 值 
测试 样本 输出 值 


num = size(traindata,1); 

train data = traindata (1:2:num,1:5); 
train output data = traindata (1:2:num, 6:10) ; 
test data = testdata (2:2:num, 1:5); 

test output data = testdata (2:2:num, 6:10); E 


sizepop - 300; 
inputnum = 5; 
hiddennum = 6; 
outputnum = 5; 
nvar = inputnum*hiddennumthiddennum*hiddennum*outputnum; 


る 未 知 数 个 数 一 空 间 维 数 


范围 下 限 
范围 上 限 


minbound = -10*ones (1,nvar); 
maxbound = 10*ones (1, nvar) ; 


for i-l:sizepop 
% 随机 产生 一 个 种 群 
for ]=1: 1ength (minbound) 
pop(i,j) = minbound(j) + (maxbound(j)-minbound(j))*rand; 
end 
fitness(i)- PSO RBF(pop(i,:),train data,train output data); % 适应 度 值 


end 


83 ”多 指标 选取 


考虑 到 股票 操作 中 常见 的 各 个 指标 ， 本 章 选取 ACD 升 降 线 指标 、 
EMV 简 易 波动 指标 、GDX 鬼 道 线 指标 、 
速 异 同 平均 指标 、QR 强 弱 值 指标 、TRIX 三 重 指数 平滑 平均 线 、UOS 终 极 指标 、 
标 、CYF 市 场 能 量 指标 、DBCD 异 同 离 差 厂 离 率 指标 、DKX 多 空 线 指标 、 
R SI 摆动 指标 、SRDM 动 向 速度 比率 指标 、 


a 


具体 的 指标 求解 等 同 于 第 7 章 所 示 内 容 。 


84 ”基于 趋势 指标 的 RBF 网 络 预测 


ADX 动 向 平均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指标 、 
JLHB 绝 路 航标 、JS 加 速 线 指标 、MACD 平 滑 异同 平均 指标 、MDI 下 降 动 向 指标 、MTM 动 力 指 标 、OSC 变 动 速率 线 、PBX 瀑 布线 指标 、 
VMA 变 异 平均 线 指标 、ACCER 幅 度 涨 速 
DPO 区 间 震 荡 线 指标 、FSL 分 水 岭 指 标 、KDJ 随 机 指标 、 


UDL 引 力 线 指标 、WR 威 廉 指标 、WIDTH 布 林 极限 宽度 指标 等 ， 进 行 上 证 指数 的 分 析 预 测 。 


CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DM | 趋向 指标 、 
PDI 上 升 动向 指标 、QACD 快 
旨 标 、ADTM 动 态 买卖 人 气 指标 、BB 布 林 极限 指标 、BIAS 乖 离 率 指 标 、C CI 顺势 指 
LWR-! 威 廉 指标 、ROC 变 动 速率 指标 、RSI 相 对 强 弱 指 标 、SKDJ 慢 速 随机 指 


本 节 基 于 趋势 指标 ， 作 为 神经 网 络 的 输入 ， 输 出 为 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 ， 以 及 输入 为 32 个 ， 输 出 为 1 个 ， 用 于 预测 上 证 指数 的 上 涨 、 下 跌 两 状态 。 
(1) 上 证 指数 下 跌 为 -1， 上 涨 为 1。 

编写 上 证 指数 的 状态 程序 如 下 : 

clc clear, close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 

warning off s 取消 警告 

feature jit off s 加 速 通道 

%% 导入 数据 

load('price.mat') も 加 载 数据 

openprice = openprice'; % openprice- 为 输入 的 开盘 价 

highprice = highprice'; $ highprice- 为 输入 的 最 高 价 

lowprice = lowprice'; $ lowprice- 为 输入 的 最 低 价 

closeprice = closeprice'; closeprice- 为 输入 的 收盘 价 


load('data0602.mat') 


tradingvolumn = data0602 (3:end-1, 6); s tradingvolumn- 为 成 交 量 
tradingvolumn = cell2mat (tradingvolumn); % tradingvolumn- 訪 成 交 量 
tradingvolumn = tradingvolumn'; 5 tradingvolumn- 为 成 交 量 


clear data0602 
%% 以 closeprice 为 参考 ， 进 行 上 证 指数 的 上 涨 、 下 跌 、 平 衡 态 处 理 


SX = nan*ones (size (closeprice, 1 ) , size (closeprice,2)); 
for j=1:size (closeprice, 1) 
for i=2:size (closeprice, 2) 
if closeprice(j,i) -closeprice (j,i- 1) >0 


s 初始 化 


SX(j,i)-1; % 上 涨 
elseif closeprice(j,i)-closeprice (j,i-1)«0 
SX(j,i)=-1; $ 下 跌 


end 


end 
end 


(2) 用 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指 标 、CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、 DM I 趋向 指标 、EMV 简 易 波动 指标 、GDX 鬼 道 线 指 
标 、 儿 HB 绝路 航标 、Js 加 速 线 指标 、MACD 平 滑 异 同 平均 指标 、MDI 下 降 动向 指标 、MTM 动 力 指标 、OSC 变 动 速率 线 、PBX 瀑 布线 指标 、PDI 上 升 动向 指标 、QACD 快 速 异 同 平均 指标 、QR 强 弱 值 指标 、 
TRIX 三 重 指数 平滑 平均 线 、UOS 终 极 指标 、VMA 变 异 平均 线 指标 的 归 一 化 数值 作为 BP 神经 网 络 的 输入 ， 上 证 指数 的 3 个 状态 值 作为 RBF 神 经 网 络 的 输出 ， 即 输入 层 节 点 数 为 32， 输 出 层 节点 数 为 1， 隐 藏 
节点 数 由 读者 自己 设 定 。 


BI] 


clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 

feature jit off s 加 速 通道 

%% 导入 数据 

る 1 表示 上 涨 ，0 表 示 平 衡 ， Ed 下 跌 

$ get output SX; 上 证 指数 的 3 个 状态 

$ get input index4; É 趋势 指标 

$ get input index5; & 反 趋 势 指标 


% save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


s 归 一 化 
分 析 index4 趋 势 指标 
指标 : RACD- 升 降 线 指标 、RADX- 动 向 平均 数 指标 、BBI- 多 空 指数 、 
CHO- 佳 庆 指 标 、CYE- 市 场 趋势 指标 、DDI- 方 向 标准 离 差 指 数 、 
š 、EMV- 简 易 波动 指标 、GDX- 鬼 道 线 指标 、 
JLHB- 绝 线 指标 、MACD -平滑 异同 平均 指标 、 
MDI- 下 降 动向 指标 、 MTM- 动 力 指标 、OSC -变动 速率 线 、PBX- 瀑 布线 指标 、 
PDI- 上 升 动向 指标 、QACD- 快 速 异 同 平均 指标 、QR- 强 弱 值 指 标 
指数 平滑 平均 线 、UOS- 终 极 指标 、VMA- 变 异 平均 线 指标 


index x = RE ,l:end-1); S 前 一 天 指标 值 
index y = SX(:,1length (SX)-size (index x,2)+1:end); $ 第 二 天 的 涨幅 状态 
$ index xi LIES ー 
for i-1:size(index x,1) 
x = []; % 初始 化 
x = index x(i,:); る 
[x,setting] = mapminmax (x); 
settings(i,l) = setting; 
index xx(i,:) = x; 


个 获取 指标 数据 


X 
一 化 


参数 
Zt 


end 


ss 网 络 结构 


index x = index x(:,2000:end); を 内 存 不 足 ， 截 断 提 取 
index xx = index xx(:,2000:end); を 内 存 不 足 ， 截 断 提取 


index y = index y(:,2000:end); $ 内 存 不 足 ， 截 断 提取 
net-newrbe (index xx,index y); 新 建 RBE 网 格 


%% 网 络 预测 

A train = sim(net,index xx); 
$ 计算 仿真 误差 

Error = index y - A train; 

% 均 方 误差 

disp ' 网 络 训练 均 方 误差 ' 


MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
holdon ` 

plot (A train, 'bs--', 'linewidth',2) 
legend(' 实 际 值 '， "输出 值 ') 


figure(2), 
plot (Error) 
title (' 预 测 误差 ') 


ss 预测 
x1 = index4 (:,end); % 最 后 一 列 指标 数据 
x2-[]; gs 初始 化 
for i-1:size(index x,1) 
x2(i,1)- (settings(i,1).ymax-settings[(i,1).ymin).* (x1(i)-settings(i,1).xmin)./(settings(i,1).xmax-settings(i,1).xmin)-http://www.hzcourse.com/resource/readBook?path-/openre 
Settings(i, 1).ymin; 
end 


BE $ 初始 化 
sim(net,x2); % 预测 


B train 
B train 


disp([' 未 来 一 天 预测 值 为 ”', num2str (B train)]) 
if B train>=0 


disp(' 未 来 一 天 上 涨 的 可 能 性 更 大 ! 1) 
disp(' 未 来 一 天 回调 的 可 能 性 更 大 ! ') 


end 


else 


运行 程序 ， 得 到 相应 的 预测 结果 ， 如 图 8-2 所 示 。 


预测 均 方 根 误差 为 : 


网 络 训练 均 方 误差 
MSE = 


2.0947e-21 


预测 误差 如 图 8-3 所 示 。 
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图 8-3 ”预测 误差 


运行 程序 ， 得 到 如 下 结果 : 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ， 投 资 者 可 在 2016 年 6 月 2 日 逢 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 。 


(3) 采用 历史 数据 回 测 分 析 。 具 体 代码 如 下 : 


E 

clear, clc 

load('database.mat') 

clear closeprice highprice lowprice openprice tradingvolumn 


index x = index4 (:,1:end-1); $ 前 一 天 指标 值 
index y = SX(:,length(SX)-size (index x,2)*1:end); % 第 二 天 的 涨幅 状态 


$$ 对 index_x 归 一 化 处 理 


for i-1:size (index x,1) 


x = []; 初始化” 
x = index x(i,2000:4000); を 逐个 获取 指标 数据 -内 存 不 足 ， 截 断 提取 
[x, setting] = mapminmax (x); $ X 归 一 
settings(i,1) = setting; 多 归 一 化 参数 
index xx(i,:) = x; る 重新 赋值 
end 
index x1 = index xx; $ 内 存 不足 , 裁断 提 取 
index yl = index y(:,2000:4000); $ 内 存 不 足 ， 截 断 提取 
net-newrbe (index x1,1ndex yl); % 新 建 RBF 网 格 
A train = sim(net,index xl); % 网 络 预测 


index x2 = index x(:,4001:end); 
index y2 = index y(:,4001:end); 
for i-1:size (index x2,1) 
index x2(i,:)- (settings(i,1).ymax-settings(i,1).ymin).* (index x2 (i,:)-settings(i,1).xmin)./(settings(i,1).xmax-settings(i, 1) .xmin)-http://www.hzcourse.com/resource/readBoc 
settings(i,1).ymin; 
end 


B train - sim(net,index x2); s 预测 


计算 仿真 误差 


Error = index y2 - B train; 


figure 
plot (Error) 
ylabel('Error') 


运行 程序 ， 得 到 预测 结果 如 图 8-4 所 示 。 


相应 的 预测 误差 如 图 8-5 所 示 。 


如 图 8-5 所 示 ， 预 测 误差 随 着 预测 的 时 间 步 长 ， 逐 渐 增 大 。 然 而 值得 注意 的 是 ， 对 于 短期 预测 ， 也 就 是 预测 未 来 一 天 ， 预 测 结果 是 较为 理想 的 。 如 图 8-4 所 示 ， 预 测 的 第 一 个 值 是 下 跌 ， 然 后 实际 值 也 是 
下 跌 的 ， 因 此 基于 RBF 的 趋势 指标 预测 是 短期 预测 有 效 的 (本 书 涉及 的 算法 预测 结果 ， 仅 供 参 考 ) 。 
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图 8-4 预测 结果 
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图 8-5 ”预测 误差 


8.5 ”基于 反 趋 势 指标 的 RBF 网 络 预测 


本 节 基 于 反 趋 势 指标 ， 作 为 神经 网 络 的 输入 ， 输 出 为 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 ， 以 及 输入 为 21 个 ， 输 出 为 1 个 ， 用 于 预测 上 证 指数 的 上 涨 、 下 跌 两 种 状态 。 
(1) 上 证 指数 下 跌 为 -1， 上 涨 为 1。 


(2) 用 ACCER 幅 度 涨 速 指标 、ADTM 动 态 买卖 人 气 指 标 、BB 布 林 极 限 指标 、BIAS 乖 离 率 指标 、CCI 顺 势 指 标 、CYF 市 场 能 量 指标 、DBCD 异 同 离 差 老 离 率 指标 、DKX 多 空 线 指标 、DPO 区 间 震 荡 线 指 
标 、FSL 分 水 岭 指 标 、KDJ 随 机 指标 、LWR-L 威 廉 指 标 、ROC 变 动 速率 指标 、RSI 相 对 强 弱 指 标 、SKDJ 慢 速 随机 指标 、SI 摆 动 指标 、SRDM 动 向 速度 比率 指标 、UDL 引 力 线 指标 、WR 威 廉 指 标 、WIDTH 布 林 
极限 宽度 指标 的 归 一 化 数值 ， 作 为 BP 神 经 网 络 的 输入 ， 上 证 指数 的 3 个 状态 值 作为 BP 神 经 网 络 的 输出 ， 即 输入 层 节点 数 为 21， 输 出 层 节点 数 为 1， 隐 藏 层 节点 数 由 读者 自己 设 定 。 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 

feature jit off s 加 速 通道 

%% 导入 数据 

を 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 

$ get output SX; $ 上 证 指数 的 3 个 状态 

$ get input index4; % 趋势 指标 

$ get input index5; % 反 趋 势 指标 


$ save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


$$% 归 一 化 

5 分 析 index5 趋 势 指标 

指标 : ACCER- 幅 度 涨 速 指标 、ADTM- 动 态 买卖 人 气 指标 、BB- 布 林 极限 指标 、 i 
BIAS- 乖 离 率 指标 、CCI- 顺 势 指标 、CYF- 市 场 能 量 指标 、DBCD- 异 同 离 差 乖 离 率 指标 、 
DKX- 多 空 线 指标 、DPO- 区 间 震 荡 线 指标 、FSL- 分 水 岭 指标 、 ”KDJ- 随 机 指标 、 

LWR-IL 威 廉 指标 、ROC- 变 动 速率 指标 、RSI- 相 对 强 弱 指标 、SKDJ- 慢 速 随机 指标 、 

SI- 摆 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、WR- 威 廉 指标 、WIDTH- 布 林 极限 


op 


de op oe op 


宽度 指标 
index x = index5(:,1:end-1); S 前 一 天 指标 值 
index y = SX(: „length (X) - size (index x,2)41:end); % 第 二 天 的 涨幅 状态 
$ 对 index x 归 一 化 处 ト 理 
for i-1: Size (index : 3c, 1) 
«= [li る 初始 化 " 
x = index x(i,:); 名 逐个 获取 指标 数据 
[x, setting] = mapminmax (x); 3 Xx 归 一 化 


settings(i,1) = setting; % 归 一 化 参数 


新 赋值 


index xx(i,:) = x; EI 
end 


%% 网络 结 构 
index x = index x(:,2000:enq); s 内 存 不 足 ， 截 断 提取 
index xx = index xx(:,2000:eng); % 内 存 不 足 ， 截 断 提取 
index y = index y(:,2000:end); s 内 存 不 足 ， 截 断 提 取 
net-newrbe (index xx,index y); も 新 建 RBF 网 格 


%% 网 络 预测 

A train = sim(net,index xx); 
% 计算 仿真 误差 

Error = index y - A train; 

% 均 方 误差 

disp ' 网 络 训练 均 方 误差 ' 


MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
hold on 

plot(A train, 'bs--', 'linewidth',2) 
legend ('SEBsdH ' , "Ap t EL) 


figure(2), 
plot (Error) 
title(" 预 测 误差 ') 


%% 预测 
xl = index5(:,end); % 最 后 一 列 指标 数据 
x2-[]; $ 初始 化 
for 1i=1:size (index x,1) 
2 (1, 1)= (settings {1, 1).ymax-settings(i,1).ymin).* (xl(i)-settings(i,1).xmin)./(settings(i,1).xmax-settings(i,1).xmin)-http://www.hzcourse.com/resource/readBook?path-/openre 
settings(i,1).ymin; 
end 


D % 初始 化 


B train 
sim(net,x2); を 预测 


B train = 
disp([' 未 来 一 天 预测 值 为 ”', num2str (B_train)]) 
if B train>=0 


disp(' 未 来 一 天 上 涨 的 可 能 性 更 大 ! n) 
disp (" 未 来 一 天 回调 的 可 能 性 更 大 ! 1) 


end 


else 


运行 程序 ， 得 到 相应 的 预测 结果 ， 如 图 8-6 所 示 。 


预测 均 方 根 误差 为 : 


网 络 训练 均 方 误差 
MSE = 


2.0626e-22 


较 之 于 趋势 指标 预测 结果 ， 基 于 反 趋势 指标 的 BP 网 络 预测 的 性 能 ， 优 于 基于 趋势 指标 的 BP 网 络 预测 的 性 能 。 预 测 误差 如 图 8-7 所 示 。 
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图 8-6 ”上 证 指数 涨 跌 RBF 预 测 结果 
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图 8-7 预测 误差 


运行 程序 ， 得 到 如 下 结果 : 


未 来 一 天 预测 值 为 ”1 
未 来 一 天 上 涨 的 可 能 性 更 大 ! 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ， 投 资 者 可 在 2016 年 6 月 2 日 着 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 。 


(3) 采用 历史 数据 回 测 分 析 。 具 体 代码 如 下 : 


E 

clear, clc 

load('database.mat') 

clear closeprice highprice lowprice openprice tradingvolumn 

index x = index5(:,l:end-1); $ 前 一 天 指标 值 x 
index y = SX(:, length (SX) -size (index x,2)41:enq); gs 第 二 天 的 涨幅 状态 


$ 对 index_x 归 一 化 处 理 


for i-1:size(index x,1) 


x = []; る 初始 化 
x = index x(i,2000:4000); る 逐个 获取 指标 数据 -内 存 不 足 ， 截 断 提取 
[x,setting] = mapminmax (x); % x 归 一 化 
settings{i,1} = setting; ”名 归 一 化 参数 
index xx(i,:) = x; る 重新 赋值 
end 
index x1 = index xx; s 内 存 不 足 ， 截 断 提 取 
index yl = index y(:,2000:4000); % 内 存 不 足 ， 截 断 提 取 
net-newrbe (index x1,index yl); を 新 建 RBF 网 格 
A train = sim(net,index x1); $ 网 络 预测 


index x2 = index x(:,4001:end); 
index y2 = index y(:,4001:end); 
for i-1:size (index x2,1) 
index x2(i,:)- (settings(i,1).ymax-settings(i,1).ymin).* (index x2 (i,:)-settings(i,1).xmin)./(settings(i,1).xmax-settings(i,1).xmin)-http://www.hzcourse.com/resource/readBoc 
settings(i,1).ymin; 
end 


B train = sim(net,index x2); % 预测 


% 计算 仿真 误差 


Error = index y2 - B train; 


figure 
plot (Error) 


ylabel('Error') 


运行 程序 ， 得 到 如 图 8-8 所 示 预 测 结果 。 


相应 的 预测 误差 如 图 8-9 所 示 。 


图 8-8 ”预测 结果 


如 图 8-9 所 示 ， 预 测 误差 的 均值 是 比较 大 的 ， 但 是 波动 均 方 根 误差 是 较 小 的 ， 回 测 预测 结果 是 不 理想 的 。 如 图 


也 是 有 较 大 误差 的 〈 本 书 涉及 的 算法 预测 结果 ， 仅 供 参 考 ) 。 


86 ”基于 趋势 和 反 趋 势 指标 的 RBF 网 络 预测 


图 8-9 ”预测 误差 


接 下 来 我 们 将 趋势 指标 和 反 趋 势 指标 合 二 为 一 ， 进 行 RBF 网 络 预测 ， 具 体 代码 如 下 : 


| "er | 
Qus aSpa- Sam | 


8-8 所 示 ， 预 测 的 第 一 个 值 是 上 涨 ， 然 后 实际 值 是 下 跌 的 ， 


因此 基于 RBF 的 反 趋势 指标 预测 


形 窗口 


clc,clear,close all を 清 屏 、 清 理工 作 区 、 关 闭 
warning off % 取消 警告 

feature jit off s 加速 通 道 

%% 导入 数据 

% 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 

$ get output SX; 名 上 证 指数 的 3 个 状态 

$ get input index4; を 趋势 指标 

$ get input index5; s 反 趋 势 指标 


$ save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 


load('database.mat') 


clear closeprice highprice lowprice openprice tradingvolumn 


%% 合并 趋势 指标 和 反 趋 势 指标 
L4 = size(index4,2); % 每 一 行 的 长 度 
L5 = size(index5,2); % 每 一 行 的 长 度 
if L4«L5 

index45-[index4; index5(:,end-L441:end)]; 
elseif L4--L5 

index45-[index4; index5]; 
elseif L4>L5 

index45- [index4 (:,end-L541:end) ; index5]; 
end 


$$ 归 一 化 

る 分 析 index4 趋 势 指 标 

$ 趋势 指标 ，ACD- 升 降 线 指标 、ADX- 动 向 平均 数 指标 、BBI- 
% CHO- 佳 庆 指标 、CYE- 市 场 趋势 指标 、DDI-~ 方 向 标准 离 差 指数 、 


多 空 指数 、 


$ DFMA -平均 线 差 、DMI- 趋 向 指标 、EMV- 简 易 波 动 指标 、GDX- 鬼 道 线 指标 、 


% JLHB- 绝 路 航标 、JS- 加 速 线 指标 、MACD -平滑 异同 平均 指标 、 


$ MDI- -FEZI 向 指标 、MTM- 动 力 指标 、OSC -变动 速率 线 、PBX- 瀑 布线 指标 、 


向 指标 、QACD- 快 速 异同 平均 指标 、QR- 强 弱 值 指标 


重 指数 平滑 平均 线 、UOS- 终 极 指标 、VMA- 变 异 平均 线 指标 


反 趋势 指标 : ACCER- 幅 度 涨 速 指标 、ADTM- 动 态 买 卖 人 气 指标 、BB- 布 林 极限 指标 、 
< 指标 、CCI- 顺 势 指标 、CYF- 市 场 能 量 指 标 、DBCD- 异 同 离 差 鞍 离 率 指标 、 
空 线 指标 、DPO- 区 间 震 荡 线 指标 、FSL- 分 水 岭 指标 、 ”KDJ- 随 机 指标 、 

LWR-L 威 廉 指 标 、ROC- 变 动 速率 指标 、RSI- 相 对 强 弱 指标 、SKDJ- 慢 速 随机 指标 、 d 

SI- 摆 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、WR- 威 廉 指标 、WIDTH- 布 林 极 限 宽度 指标 


index x = index45(:,1:end-1); & 前 一 天 指标 值 
index y = SX(:, length (SX) -size (index x,2)*1:end); 第 二 天 的 涨幅 状态 
を 对 index_x 归 一 化 处 理 


for i-1:size(index x,1) 


x = []; $ 初始 化 

x = index x(i,:); $ 逐个 获取 指标 数据 
[x,setting] = mapminmax (x); る x 归 一 化 
settings{i,1} = setting; を 归 一 化 参数 

index xx(i,:) = x; $ 重新 赋值 


end 


%% 网 络 结构 


index x = index x(:,2000:end); % 内 存 不 足 ， 截 断 提 取 
index xx = index xx(:,2000:end); $ 内 存 不 足 ， 截 断 提取 
index y = index y(:,2000:end); $ 内 存 不 足 ， 截 断 提取 


net-newrbe (index xx,index y); $ 新 建 RBF 网 格 


ss 网 络 预测 


A train = sim(net,index xx); 


计算 仿真 误差 


Error = index y - A train; 


% 均 方 误差 
disp ' 网 络 训练 均 方 误差 ' 
MSE = mse (Error) 


figure (1) 

plot (index y,'ro--','linewidth',2) 
hold on 

plot(A train, 'bs--', 'linewidth',2) 
legend(' 实 际 值 '，' 输 出 值 ') 


figure(2), 
plot (Error) 
title(' 预 测 误差 ') 


%% 预测 
xl = index45(:,end); る 最 后 一 列 指标 数据 
x2-[]; $ 初始 化 
for i=1:size (index x,1) 
x2(i,1)- (settings(i, 1).ymax-settings(i,1).ymin).* (xl(i)-settings(i,1).xmin)./(settings(i,1).xmax-settings(i,1).xmin)-http://www.hzcourse.com/resource/readBook?path-/openre 
settings(i,l).ymin; 
end 


IE % 初始 化 


B train 
sim(net,x2); を 预测 


B train E 
disp([" 未 来 一 天 预测 值 为 ',num2str(B train)]) 
if B train>=0 


disp (" 未 来 一 天 上 涨 的 可 能 性 更 大 ! 1) 
disp (" 未 来 一 天 回调 的 可 能 性 更 大 ! 1) 


end 


else 


运行 程序 ， 得 到 相应 的 预测 结果 ， 如 图 8-10 所 示 。 


预测 均 方 根 误差 为 : 


网 络 训练 均 方 误差 


MSE = 
3.0288e-26 


较 之 于 趋势 指标 预测 结果 ， 基 于 趋势 和 反 趋 势 指 标的 RBF 网 络 预测 的 性 能 ， 优 于 基于 趋势 ( 反 趋 势 ) 指标 的 RBF 网 络 预测 的 性 能 。 预 测 误差 如 图 8-11 所 示 。 
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8-10 上 证 指数 涨 中 RBF 预测 结果 
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8-11 预测 误差 


运行 程序 得 到 如 下 结果 : 


未 来 一 天 预测 值 为 1 
未 来 一 天 上 涨 的 可 能 性 更 大 ! 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ， 投 资 者 可 在 2016 年 6 月 2 日 着 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 。 


采用 历史 数据 回 测 分 析 。 具 体 代码 如 下 : 


E 

clear,clc 

load('database.mat') 

clear closeprice highprice lowprice openprice tradingvolumn 


% 合并 趋势 指标 和 反 趋 势 指标 


L4 = size (inmdex4, 2) s 每 一 行 的 长 度 
L5 = size (index5,2); $ 每 一 行 的 长 度 
if L4«L5 


index45-[index4; index5(:,end-L441:end)]; 
elseif L4--L5 

index45-[index4; index5]; 
elseif L4»L5 

index45- [index4 (:, end-L541:end) ; index5]; 


end 
index x = index45(:,1:end-1); $ 前 一 天 指标 值 TUS 
index y = SX(:, length (SX) -size (index x,2)41:end); $ 第 二 天 的 涨幅 状态 


$ 对 index_x 归 一 化 处 理 


for i-1:size(index x,1) 


x= [T£ % 初始 化 
x = index x(i,2000:4000); $ 逐个 获取 指标 数据 -内 存 不 足 ， 截 断 提取 
[x,setting] = mapminmax (x); る x 归 一 化 
settings{i,1} = setting; $ 归 一 化 参数 
index xx (iv :) = x; る 重新 赋值 
end 
index x1 = index xx; s 内 存 不 足 ， 截 断 提取 
index yl = index y(:,2000:4000); $ 内 存 不 足 ， 截 断 提 取 
net-newrbe (index x1,1ndex yl); % 新建 RBF 网 格 
A train = sim(net,index xl); を 网 络 预测 


index x2 = index x(:,4001:end); 
index y2 = index y(:,4001:end); 
for i-1:size (index x2,1) 
index x2(i,:)- (settings(i,1).ymax-settings(i,1).ymin).* (index x2 (i,:)-settings(i,1).xmin)./(settings(i,1).xmax-settings(i, 1) .xmin)-http://www.hzcourse.com/resource/readBoc 


settingsíi,l).ymin; 
end 
B train - sim(net,index x2); % 预测 
s 计算 仿真 误差 


Error = index y2 - B train; 


figure 
plot (Error) 
ylabe1 ('Error') 


运行 程序 ， 得 到 如 图 8-12 所 示 预 测 结果 。 


相应 的 预测 误差 如 图 8-13 所 示 。 
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图 8-12 预测 结果 
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8-13 ”预测 误差 


如 图 8-13 所 示 ， 预 测 误差 的 均值 是 比较 大 的 ， 但 是 波动 均 方 根 误差 是 较 小 的 ， 回 测 预 测 结果 是 不 理想 的 。 如 图 8-12 所 示 ， 预 测 的 第 一 个 值 是 上 涨 的 ， 然 后 实际 值 是 下 跌 的 ， 因 此 基于 RBF 的 趋势 和 反 趋 
势 指 标 预测 也 是 有 较 大 误差 的 。 这 个 预测 异常 值 结果 的 出 现 ， 也 是 由 于 2015 年 一 整 年 的 数据 从 波 谷 到 波峰 的 陡峭 度 影响 所 致 ， 相 当 于 一 个 巨大 的 冲击 信号 ， 使 得 网 络 预测 性 能 大 大 降低 (本 书 涉及 的 算法 预 
测 结果 ， 仅 供 参 考 ) 。 


第 9 章 ”Hopfield 神 经 网 络 多 指标 预测 


Hopfield 网 络 是 一 种 互 连 型 网 络 ， 它 引入 类 似 于 切 Lyapunov 函 数 的 能 量 函 数 概念 ， 在 满足 条 件 的 情况 下 ， 某 种 “能 量 函 数 ”的 能 量 在 网 络 运行 过 程 中 不 断 地 减少 ， 最 后 趋 于 稳定 的 平衡 状态 。 
Hopfield 在 数据 预测 方面 表现 了 极 好 的 应 用 优势 。 本 章 通过 选取 多 指标 来 构建 神经 网 络 的 输入 层 ， 具 体 的 多 指标 有 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指标 、CYE 市 场 趋势 指 
标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DMI 趋 向 指标 、EMV 简 易 波 动 指标 、GDX 扳 道 线 指标 、 儿 HB 绝路 航标 等 。 


9.1 Hopfield 神 经 网 络 


人 工 神经 网 络 有 很 多 种 ， 常 见 的 有 BP 神 经 网 络 、RBF 神 经 网 络 、Hopfield 神 经 网 络 等 ， 每 种 神经 网 络 根据 算法 特点 应 用 于 不 同 的 领域 ， 常 见 人 工 神经 网 络 应 用 分 类 如 表 9-1 所 示 。 


表 9-1 和 神经 网 络 工具 箱 函 数 说 明 


BP 神 经 网 络 RBF 神 经 网 络 
预测 、 分 类 TU. imr 


TALE 
MATLAB 工 具 箱 函数 Hopfield 神 经 网 络 


主要 应 用 领域 


分 类 、 预 济 


如 表 9-1 所 示 ， 各 神经 网 络 函数 对 比如 下 。 


BP 神 经 网 络 是 一 种 经 典 的 神经 网 络 ， 采 用 误差 负 反馈 的 传播 方式 ， 进 行 数 据 的 训练 仿真 ， 通 过 调整 相应 的 阔 值 和 权 值 ， 得 到 相应 的 输出 结果 ， 以 满足 用 户 需求 。 


RBF 网 络 的 学 习 过 程 与 BP 网 络 的 学 习 过 程 类 似 ，RBF 网 络 采用 高 斯 基 函 数 ， 其 值 在 输入 空间 中 有 限 范 围 内 为 非 0 值 ，RBF 网 络 具有 全 局 寻 优 的 特点 


Hopfield 神 经 网 络 模型 是 一 种 循环 神经 网 络 ， 从 输出 到 输入 有 反馈 连接 。 在 输入 的 激励 下 ， 会 产生 不 断 的 状态 变化 。 对 于 一 个 Hopfield 网 络 来 说 ， 关 键 是 在 于 确定 它 在 稳定 条 件 下 的 权 系数 。 反 馈 神经 
网 络 有 稳定 的 ， 也 有 不 稳定 的 。 


对 于 Hopfield 网 络 来 说 ， 如 何 判别 其 稳定 性 就 显得 尤为 重要 了 。 


Hopfield 神 经 网 络 模型 如 图 9-1 所 示 ， 它 是 一 种 循环 神经 网 络 ， 从 输出 到 输入 有 反馈 连接 ， 通 过 不 断 的 调整 权 值 ， 使 得 系统 能 量 函 数 不 断 的 趋向 于 最 小 ， 达 到 系统 收敛 的 目的 。 


Hopfield 神 经 网 络 包 括 离散 和 连续 两 种 类 型 。 


对 于 离散 Hopfield 网 络 (DHNN) 而 言 ， 神 经 元 的 输出 只 取 1 和 0， 分 别 表示 神经 元 处 于 激活 和 抑制 状态 。 对 于 二 值 神经 元 ， 它 的 计算 公式 如 下 : 


H; = > w; y, + x; 
i 


其 中 ，y 为 外 部 输入 ， 并 且 有 : 


I 
一 
S 


Ji 
Yi 


l 

© 

S 
INN 


第 0 层 


第 1 层 


9-1 Hopfield 神 经 网 络 模型 


一 个 DHNN 的 网 络 状 态 是 输出 神经 元 信息 的 集合 。 


对 于 一 个 输出 层 是 n 个 神经 元 的 网 络 ， 其 t 时 刻 的 状态 为 一 个 n 维 向 量 : 


Y (t) -[» O ACESA 


因为 yi (t) 可 以 取 值 为 1 或 0， 因 此 n 维 向 量 Y (t) 有 27 种 状态 ， 即 网 络 有 2" 种 状态 。 


对 于 连续 Hopfield 网 络 (CHNN) 而 言 ， 拓 扑 结构 和 DHNN 的 结构 相同 ， 不 同 之 处 在 于 其 函数 9 不 是 阶 跃 函数 ， 而 是 S 形 的 连续 函数 。 


一 般 情 況 下 有 : 


1 
7 ) ニーーーーー 
g( 1+Te" 


MATLAB 工 具 箱 Hopfield 网 络 函 数 形式 如 下 : 


网 络 创建 函数 hewhop 如 下 : 


net=newhop (T) 


其 中 ，T 为 R*Q 向 量 ，Q 为 目标 向 量 个 数 


具体 的 hewhop 用 法 如 下 : 


š 创建 hopfielg 网 络 ， 预测 


clc s 清 屏 
clear all; る 删除 workplace 变 量 
close all; $ 关 掉 显示 图 形 窗口 
% 创建 hopfield 网 络 
T-2[-1-11; 1 -1 1]' 
net=newhop (T); 
Ai-T; 
Yc = net (2, [], Ai) 
Yc = net (1, [], Ai (:,1)) 
运行 程序 输出 结果 如 下 : 
T= 

zd 1 

ed el 

1 1 
Ye = 

zz 1 

es sL 

1 1 
Yo = 

<i 

esq 

1 


9.3 ”基于 趋势 指标 的 Hopfield 网 络 预测 


本 节 基 于 趋势 指标 ， 作 为 神经 网 络 的 输入 ， 输 出 为 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 ， 


(1) 上 证 指数 下 跌 为 -1， 上 涨 为 1。 


以 及 输入 为 32 个 ， 输 出 为 1 个 ， 用 于 预测 上 证 指数 的 上 涨 、 下 跌 两 种 状态 。 


编写 上 证 指数 的 状态 程序 如 下 : 

clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 

feature jit off を 加 速 通道 

%% 导入 数据 

load('price.mat') % 加 载 数 据 


openprice = openprice'; openprice- 为 输入 的 开盘 价 
highprice = highprice'; highprice- 为 输入 的 最 高 价 
lowprice = lowprice'; る lowprice- 为 输入 的 最 低 价 
Closeprice = closeprice'; を closeprice- 为 输入 的 收盘 价 


load('data0602.mat') 

tradingvolumn = data0602 (3:end-1, 6); 
tradingvolumn = cell2mat (tradingvolumn); 
tradingvolumn = tradingvolumn'; 

clear data0602 


$* 以 closeprice 为 参考 ， 进 行 上 证 指数 的 上 涨 、 下 跌 、 平 衡 状 态 处 理 
SX = nan*ones (size (closeprice,1),size(closeprice,2)); & 初始 化 
for j=1:size (closeprice, 1) 
for i-2:size(closeprice,2) 
if oru) G 1i)-closeprice (j, ユー1 ) >0 


tradingvolumn- 为 成 
tradingvolumn- 为 成 
tradingvolumn- 为 成 交 量 


de ge de 


SX(),i)= % 上 涨 
elseif ciosaprice は )-closeprice(j,i-1)«0 
SX (j, i)=-1; b 下 跌 


(2) 用 ACD 升 降 线 指标 、ADX 动 向 平均 数 指标 、BBI 多 空 指数 、CHO 佳 庆 指 标 、 
标 、 儿 HB 绝路 航标 、JS 加 速 线 指标 、MACD 平 滑 异 同 平均 指标 、MDI 下 降 动向 指标 、 


CYE 市 场 趋势 指标 、DDI 方 向 标准 离 差 指数 、DFMA 平 均线 差 、DMI| 趋 向 指标 、EMV 简 易 波 动 指标 、GDX 扳 道 线 指 


MTM 动 力 指标 、 


OSC 变 动 速率 线 、PBX 瀑 布线 指标 、PDI 上 升 动 向 指标 、QACD 快 速 异 同 平均 指标 、QR 强 弱 值 指标 、 


TRIX 三 重 指数 平滑 平均 线 、UOS 终 极 指标 、VMA 变 异 平均 线 指标 的 归 一 化 数值 ， 作 为 BP 神经 网 络 的 输入 ， 上 证 指数 的 3 个 状态 值 作为 RBF 神 经 网 络 的 输出 ， 即 输入 层 节 点 数 为 32， 输 出 层 节点 数 为 1， 隐 藏 


层 节 点 数 由 读者 自己 设 定 。 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 


feature jit off る 加 速 通道 


%% 导入 数据 

$ 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 

$ get output SX; $ mor TRE 
% get_input index4; 示 

$ get input index5; š Rh 


$ save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


%% 归 一 化 
$ 分 析 index4 趋 势 指标 
% 指标 ，ACD- 升 降 线 指标 、ADX- 动 向 平均 数 指标 、BBI- 多 空 指数 、 
$ EO HO E: CYE- 市 场 趋势 指标 、DDI- 方 向 标准 离 差 指数 、 

-平均 线 差 、DMI- 趋 向 指标 、EMV- 简易 波动 指标 、 Ta - 鬼 道 线 指标 、 
N HB- 绝路 航标 、 e RES ACD: -平滑 异同 
S MDI- 下 降 动向 指标 、MTM- 动 力 指标 、OSC DUE PEX- 瀑布 线 指标 、 
S PDI- 上 升 动向 指标 、OQACD- 快 速 异同 平均 指标 、OR- 强 弱 值 指标 
$ 、TRIX- 三 重 指数 平滑 平均 线 、UOS- 终 极 指标 、VMA- 变 异 平均 线 指标 


index x = index4 (:,1:end-1); を 前 一 天 指标 值 A 
index y - SX(: slength m - size(index x,2)*1:end); % 第 二 天 的 涨幅 状态 
$ 对 index x 归 一 化 处 


for i-1: ined. x,l) 


メー テロ s 初始 化 
x = index x(i,:); $ Lo T 
[x,setting] = mapminmax (x); x 归 一 
settings(i,1) = setting; š 归 一 化 参数 
index xx(i,:) = x; る 重新 赋值 
end 
%% 网 络 结构 = 
index x = index x(:,2000:end); s 内 存 不足 , 裁断 提 取 
index xx = index E 2000:end); s 内 存 不 足 ， 截 断 提取 
index y = index y(:, 2000: end); $ 内 存 不 足 ， 截 断 提 取 
net-newhop (index xx); % 新 建 Hopfield 网 格 
$5 网 络 预测 
A train = net(size(index y,2), [], index xx); s 自身 预测 


$ 计算 仿真 误差 

Error = index xx - A train; 
% 均 方 误差 

disp ' 网 络 训练 均 方 误差 ' 


MSE = mse (Error) 


运行 程序 ， 得 到 相应 的 预测 结果 如 图 9-2 所 示 。 
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图 9-2 ”上 证 指数 趋势 指标 Hopfield 预 测 误差 
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预测 均 方 根 误差 为 : 


网 络 训练 均 方 误差 
MSE = 


0.0039 


运行 程序 ， 得 到 如 下 结果 


未 来 一 天 预测 值 为 ”1 
未 来 一 天 上 涨 的 可 能 性 更 大 ! 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ,投资 者 可 在 2016 年 6 月 2 日 着 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 。 (本 书 涉及 的 算法 预测 结果 ， 仪 供 参考 ) 


94 ”基于 反 趋 势 指 标的 Hopfield 网 络 预测 


本 章 基于 反 趋 势 指标 ， 作 为 神经 网 络 的 输入 ， 输 出 为 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 ， 以 及 输入 为 21 个 ， 输 出 为 1 个 ， 用 于 预测 上 证 指数 的 上 涨 、 下 跌 两 种 状态 。 


(1) 上 证 指数 下 跌 为 -1， 上 涨 为 1。 


(2) 用 ACCER 幅 度 涨 速 指标 、ADTM 动 态 买卖 人 气 指 标 、BB 布 林 极 限 指标 、BIAS 乖 离 率 指标 、CCI 顺 势 指 标 、CYF 市 场 能 量 指标 、DBCD 异 同 离 差 寺 离 率 指 标 、DKX 多 空 线 指标 、DPO 区 间 震 荡 线 指 
标 、FSL 分 水 岭 指 标 、KDJ 随 机 指标 、LWR-L 威 廉 指 标 、ROC 变 动 速率 指标 、RSI 相 对 强 弱 指 标 、SKDJ 慢 速 随机 指标 、SI 摆 动 指标 、SRDM 动 向 速度 比率 指标 、UDL 引 力 线 指标 、WR 威 廉 指 标 、WIDTH 布 林 
极限 宽度 指标 等 归 一 化 数值 ， 作 为 BP 神 经 网 络 的 输入 ， 上 证 指数 的 3 个 状态 值 作为 BP 神 经 网 络 的 输出 ， 即 输入 层 节点 数 为 21， 输 出 层 节点 数 为 1， 隐 藏 层 节点 数 由 读者 自己 设 定 。 


clc clear, close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 

feature jit off s 加 速 通道 

%% 导入 数据 

% 1 表示 上 涨 ，0 表 示 平 衡 ， 一 为 1 下 跌 

$ get output SX; s 上 证 指数 的 3 个 状态 

$ get input index4; $ 趋势 指标 

$ get input index5; & 反 趋 势 指标 


save database.mat closeptice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


& 归 一 化 

分 析 index5 趋 势 指标 z ] 

幅度 涨 速 指 标 、ADTM- 动 态 买卖 人 气 指标 、BB- 布 林 极限 指标 
标 、CCI- 顺 势 指标 、CYF- 场 能 量 指标 DPCD- 异 同 离 差 乖 离 率 指标 、 

线 指标 、FSL- 分 水 岭 指 标 、 ”KDJ- 随 机 指标 、 

前 标 、RSI- 相 对 强 弱 指标 、SKDJ- 慢 速 随机 指标 、 

指标 、UDL- 引 力 线 指标 、WR- 威 廉 指标 、WIDTH- 布 林 极限 宽度 指标 


index x = s. as: ,1:end-1); % 前 一 天 指标 值 
index y = SX(:,length(SX)-size (index x,2)*1:end); る 第 二 天 的 涨幅 状态 
$ i isdes dE LIRE 


for i-1:size (index x,1) 


x = []; ー % 初始 化 
x = index x(i,:); j| asas 
[x,setting] = mapminmax (x); 
settings {1,1] = setting; t 
index xx(i,:) = x; 新 赋值 
end 
ss 网 络 结构 
index x = index x(:,2000:end); s 内 存 不 足 ， 截 断 提取 
index xx = index xx ,2000:end); $ 内 存 不 足 ， 截 断 提取 
index y = index y(:,2000:end); $ 内 存 不 足 ， 截 断 提取 
net-newhop (index xx); $ 新 建 Hopfield 网 格 
ss 网 络 预测 
A train = net (size (index y,2), [],index xx); る 自身 预测 
$ 计算 仿真 误差 
Error = index xx - A train; 


% 均 方 误差 
disp ' 网 络 训练 均 方 误差 ' 
M: 


ISE = mse (Error) 
= haest: pon & 最 后 一 列 指标 数据 


x2 2, 1)= (settings[i,1).ymax-settings(i,1).ymin).* (xl(i)-settings(i,1). xmin)./(settings(i,1).xmax-settings(i,1).xmin)-*http://www.hzcourse.com/resource/readBook?path-/openr 
settingsí(i,1).ymin; 


end 
B train = []; $ 初始 化 
B train = net (1, [],x2); % 预测 


for i-1:size(index xx,2) 
dist(i) = norm(B | train-index xx(:,i)); 
end 


[minD,flag] = min(dist); & 最 小 距离 对 应 的 样本 
C train = index y (flag); 


disp([' 未 来 一 天 预测 值 为 ”',num2str(C_train)]) 
if C train>=0 


disp(' 未 来 一 天 上 涨 的 可 能 性 更 大 ! ') 
disp(' 未 来 一 天 回调 的 可 能 性 更 大 ! ') 


end 


else 


运行 程序 ， 得 到 相应 的 预测 结果 如 图 9-3 所 示 。 


2 


0.0217 


2 5.5271e-05 


-0.0269 
-0.0495 
0.0063 
0.0801 
0.0663 
-0.0524 
-0.0988 
-0.0646 
0.1082 
0.1233 
0.1363 


预测 均 方 根 误差 为 : 


-0.0374 
-0.0383 


-0.0540 


0.0063 
-0.1392 


0.0678. 


-0.0534 


-0.1086 
-0.0698 


-0.1204 


0.0130 


0.0798 


3 


0.0190 
-0.1015 
0.0607 


-0.0437 


0.0185 


0.0623 


0.0690 


-0.0514 


-0.0925 
-00724 


-0.0896 


0.0974 


0.1232 


4 
-0.0230 
| 31575e-13 
-0.0458 


-0.0710 
-0.0349 


0.0031 


0.0071. 
-0.0086 
0.0525 
0.0397 


0.0694. 


-0.0604 


-0.1114 


5 
-0.0151 
0.1249 


-0.0017 


| 3.1575e-13 
0.0685 
-0.0397 
-0.0377 
-0.0670 
| 9.5512e-04 
-0.1077 
-0.0550 


图 9-3 上 证 指数 反 趋 势 指 标 Hopfield 预 测 误差 
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网 络 训练 均 方 误差 


MSE = 
0.0052 


运行 程序 ， 得 到 如 下 结果 : 


未 来 一 天 预测 值 为 1 
未 来 一 天 上 涨 的 可 能 性 更 大 ! 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ,投资 者 可 在 2016 年 6 月 2 日 着 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 (本 书 涉及 的 算法 预测 结果 ， 仪 供 参考 ) 。 


9.5 ”基于 趋势 和 反 趋 势 指标 的 Hopfield 网 络 预测 


接 下 来 我 们 将 趋势 指标 和 反 趋 势 指标 合 二 为 一 ， 进 行 Hopfield 网 络 预测 ， 具 体 代码 如 下 : 


clc,clear,close all $ 清 屏 、 清 理工 作 区 、 关 闭 
warning off % 取消 警告 
feature jit off s 加速 通 道 


$$% 导入 数据 
% 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 


$ get output SX; $ 上 证 指数 的 3 个 状态 
$ get input index4; $ 趋势 指标 _ 
$ get input index5; % 反 趋势 指标 


形 窗口 


$ save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 


load('database.mat') 


clear closeprice highprice lowprice openprice tradingvolumn 


%% 合并 趋势 指标 和 反 趋 势 指标 


L4 = size(index4,2); % 每 一 行 的 
を 每 一 行 的 长 度 


:end) ] 7 


L5 = size(index5,2); 
if L4«L5 

index45-[index4; index5(:,end-L441 
elseif L4--L5 


长 度 


index45-[index4; index5]; 
elseif L4»L5 
index45- [index4 (:,end-L541:end);index5]; 


归 一 化 
分 析 inqex4 趋 势 指标 

趋势 指标 : ACD- 升 降 线 指标 、ADX- 动 向 平均 数 指标 、BBI- 多 空 指数 、 
CHO- 佳 庆 指 标 、CYE- 市 场 趋势 指标 、DDI- 方 向 标准 离 差 指数 、 

DEMA -平均 线 差 、DMI- 趋 问 指标 、EMV- 简 易 波动 指标 、 s E ans 
JLHB- 绝 路 航标 、JS- 加 速 线 指标 、MACD 
MDI- ez ios MTM- 动 力 指标 、OSC 


KER m 
ETTA ADTM- -动态 买卖 前 标 、BB- 布 林 极 限 指标 、 
示 、CCI- 顺 势 指标 、CYF- 市 场 能 量 指标 、 ORCD- COE PIRE AC 
£ ish. DPO- 区 间 震 荡 线 指标 、FSL- 分 水 岭 指 标 、 ”KDJ- 随 机 指标 、 
LWR-L 威 廉 指 标 、ROC- 变 动 速率 指标 、RSI- 相 对 强 弱 指标 、SKDJ- 慢 速 随机 指标 、 T 
SI- 摆 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、WR- 威 廉 指标 、WIDTH- 布 林 极 限 宽度 指标 


index x = í 1:end-1); & 前 一 天 指标 值 
index y - SX(: , Length (SX) - size (index x,2)+1:end); % 第 二 天 的 涨幅 状态 
$ Minder 」 NE 化 处 理 


for i=1: size (index : x,1) 


mi 


x = []; % 初始 化 
x = index x(i,:); s “换个 换个 获取 指标 数据 
[x,setting] = mapminmax (x) ; % x 归 一 化 
settings{i,1} = setting; & 归 一 化 参数 
index xx(i,:) = x; を 重新 赋值 

end 


%% 网 络 结构 

index x = index x(:,2000:end) % 
index xx = index xx(:,2000:end); 5 
index y = index y(:,2000:end); E] 


内 存 不 足 ， 截 断 提取 
内 存 不 足 ， 截 断 提取 
内 存 不 足 ， 截 断 提取 


net-newhop (index xx); % 新建 Hopfield 网 格 


%% 网 络 预测 
A train = net(size(index y,2),[],index xx); る 自身 预测 


计算 仿真 误差 


Error = index xx - A train; 


% 均 方 误差 
disp ' 网 络 训练 均 方 误差 ' 


MSE = mse (Error) 


%% 预测 
xl = index45 (: ,end); る 最 后 一 列 指标 数据 
x2-[]; s 初始 化 
for i-1: Sic (index x,1) 
x2(i,1)9 (settings(i,1].ymax-settings(i,1).ymin).* (x1l(i)-settings(i,1).xmin)./(settings(i,1].xmax-settings(i,1).xmin)-http://www.hzcourse.com/resource/readBook?path-/openre 
settingsí(i,l).ymin; 
end 


BE % 初始 化 
net(1,[],x2); を 预测 


B train 
B train 


for i-1:size(index xx,2) 
dist(i) - norm(B train-index xx(:,i)); 
end 


[minD,flag] = min(dist); % 最 小 距离 对 应 的 样本 
C train = index y (flag); 


disp([' 未 来 一 天 预测 值 为 ”' num2str(C train) ] ) 
if C train>=0 

disp(' 未 来 一 天 上 涨 的 可 能 性 更 大 ! ') 

disp(' 未 来 一 天 回调 的 可 能 性 更 大 ! ') 


end 


else 


运行 程序 ， 得 到 相应 的 预测 结果 如 图 9-4 所 示 。 
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0.1348 0.1377 0.1388 0.1376 0.1357 0. ^ 
-0.0192 -0.0559 -0.0030 -0.0148 0.0014 aa 
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0.0045 | -00060  -00119  -00159 -0.0189  -0』 
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0.0511 | 00326 0.0257 0.0185 0.0436 
0.0186 0.0625 0.0798 0.0826 0.0482 
0.1350 0.1283 0.1202! 0.1107 0.1144 


图 9-4 上 证 指数 趋势 和 发 趋势 指标 Hopfield 预 测 误差 


预测 均 方 根 误差 为 : 


网 络 训练 均 方 误差 
MSE = 
0.0039 


运行 程序 得 到 如 下 结果 : 


未 来 一 天 预测 值 为 ”1 
未 来 一 天 上 涨 的 可 能 性 更 大 


即 2016 年 6 月 3 日 上 证 指数 上 涨 的 可 能 性 更 大 ， 投 资 者 可 在 2016 年 6 月 2 日 逢 低 买 进 ， 待 6 月 3 日 上 涨 后 卖 出 (本 书 涉及 的 算法 预测 结果 ， 仪 供 参 考 ) 。 


第 10 章 马尔 可 夫 (Markov) 链 上 证 指数 预测 


马尔 可 夫 链 ， 是 数学 中 具有 马尔 可 夫 性 质 的 离散 时 间 随 机 过 程 。 该 过 程 中 ， 在 给 定 当前 知识 或 信息 的 情况 下 ， 过 去 (当期 以 前 的 历史 状态 ) 对 于 预测 将 来 (当期 以 后 的 未 来 状态 ) 是 无 关 的 。 因 此 马尔 
可 夫 链 广泛 地 应 用 在 经 济 学 、 人 口 、 排 队 论 等 问题 建 模 中 。 本 章 通 过 上 证 指数 的 上 涨 和 下 跌 ， 来 预测 未 来 几 天 或 者 数 月 上 证 指数 的 上 涨 和 下 跌 状 态 值 。 


10.1 马尔 可 夫 链 模型 


马尔 可 夫 链 模型 直观 地 统计 某 几 个 状态 出 现 的 频数 ， 进 而 判断 下 一 时 刻 点 出 现 某 状态 的 概率 。 马 尔 可 夫 链 模型 状态 数 由 用 户 自己 设 定 ， 较 为 常用 的 有 5 种 状态 ， 如 快速 上 升 、 缓 慢 上 升 、 相 对 不 变 、 缓 慢 
下 降 、 快 速 下 降 ， 也 可 以 设 为 3 种 状态 ， 如 上 升 、 相 对 不 变 、 下 降 ( 较 多 的 经 济 学 问题 都 按照 这 个 划分 ) 。 这 个 思想 和 模糊 数学 的 思想 相 一 致 的 。 针 对 快速 上 升 、 缓 慢 上 升 、 相 对 不 变 、 缓 慢 下 降 、 快 速 下 降 
这 5 个 状态 ， 那 么 多 大 的 增长 幅度 才 算 是 快速 上 升 ， 多 大 的 下 降幅 度 才 算是 快速 下 降 呢 ?这 两 个 数值 由 用 户 自 己 设 定 ， 较 为 常用 的 增长 率 有 1%、3%、5% 等 数值 。 本 节 考虑 上 证 指数 的 增长 幅度 问题 ， 采 用 


1% 上 证 指数 增长 率 作为 衡量 标准 。 


马尔 可 夫 链 模型 广泛 地 应 用 于 长 时 间 地 波动 数据 行业 中 ， 例 如 ， 某 个 食品 的 价格 、 某 个 公司 员工 上 下 班 时 间 趋 势 、CPI 指 数 、 上 证 指数 、 个 股价 格 等 。 马 尔 可 夫 链 模型 
行业 起 到 举足轻重 的 作 


b] 
jn 


自身 数据 的 统计 特性 ， 在 预测 


10.2 马尔 可 夫 链 模型 流 


马尔 可 夫 链 定义 如 下 符号 变量 。 


-Bi 上 证 指数 增长 率 划分 为 5 个 段 ， 分 别 用 Bi 表示 (i=1, 2, 3, 4, 5) ， 即 快速 上 升 (增长 率 >1%) 、 缓 慢 上 升 ( 增 长 率 为 0~1%) 、 相 对 不 变 ( 增 长 率 为 0) 、 缓 慢 下 降 (增长 率 为 -1%~0) 、 快 速 
下 降 (增长 率 三 -1%) 。 具 体 表示 方法 为 : 


・B: 快速 上 升 ， 在 程序 中 用 2 表示 。 

(By 缓慢 上 升 ， 在 程序 中 用 1 表示 。 

・B3: 相对 不 变 ， 在 程序 中 用 0 表示 。 

・B4: 缓慢 下 降 ， 在 程序 中 用 -1 表示 。 

DB 快速 下 降 ， 在 程序 中 用 -2 表示 。 

・ (E, Ep 00, E) : 为 状态 向 量 ， 用 来 表示 状态 变量 。 当 i=1，2，3，4，5 时 ，Ei 分 别 对 应 快速 上 升 、 缓 慢 上 升 、 相 对 不 变 、 缓 慢 下 降 、 快 速 下 降 5 种 状态 。 
DE (0) : 初始 状态 向 量 。 

E: 一 步 转移 概率 和 矩阵 。 

DE : 从 状态 i 到 状态 j 的 一 步 转移 概率 。 

CO 从 状态 i 一 步 转移 到 状态 j 的 次 数 。 

CDs 为 上 证 指数 上 涨 、 下 跌 值 在 系统 中 处 于 状态 i 时 的 样本 个 数 。 


对 于 经 济 学 模型 中 的 马尔 可 夫 链 ， 主 要 的 求解 步骤 如 下 。 


(1) 求 出 上 证 指数 数据 的 增长 率 。 


(2) 编程 ， 快 速 上 升 (增长 率 为 >1%) , 在 程 序 中 用 2 表示 : 缓慢 上 升 (增长 率 为 0 ~ 1%) ， 在 程序 中 用 1 表示 ; 相对 不 变 (增长 率 为 0) ， 在 程序 中 用 0 表示 ; 缓慢 下 降 (增长 率 为 -1% ~ 0) ， 在 程序 
中 用 -1 表示 ; 快速 下降 (增长 率 <-1%) ， 在 程序 中 用 -2 表示 ， 得 到 上 证 指数 在 不 同时 期 的 Bi。 


(3) 统计 相 邻 增长 率 变化 一 致 的 次 数 Ci 
(4) 对 于 待 求 的 一 组 上 证 指数 数据 ， 分 5 类 进行 硬 加 求 和 ， 分 别 为 先 快速 增长 、 先 缓慢 增长 、 先 相对 不 变 、 先 缓慢 下 降 、 先 快速 下 降 ， 得 到 Di。 


(5) 求 出 一 步 转移 概率 矩阵 FE， 即 C 诲 行 的 每 5 个 数据 依次 与 对 应 的 Di 相 除 ， 得 到 转移 概率 矩阵 E 的 一 行 。 


(6) 使 用 求 出 的 一 步 转移 概率 矩阵 FE， 求 出 不 同时 期 的 状态 概率 。 


103 马尔 可 夫 链 预测 


本 节 用 趋势 指标 作为 神经 网 络 的 输入 ， 输 出 为 上 证 指数 的 上 涨 、 下 跌 和 平衡 状态 ， 输 入 为 32 个 ， 输 出 为 1 个 ， 用 于 预测 上 证 指数 的 上 涨 、 下 跌 两 种 状态 


(1) 获取 上 证 指数 数据 ， 主 代码 如 下 : 


clc clear, close all i 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off 


feature jit off 


ss 导入 数据 


FilePath = '.\txt\'; 
FileName = '999999.txt'; 
[SX, closeprice,highprice,lowprice,openprice,tradingvolumn] = Get input Data (FilePath, FileName) ; $ 导入 数据 


相应 的 Get_input_Data 函 数 程序 如 下 : 


function [SX,closeprice, highprice, lowprice, openprice,tradingvolumn] = Get input Data (FilePath, FileName) 
$ clc,clear,close all 青 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 

warning off š 
% feature jit off % 加 速 通道 


° 开盘 0 最高 

% 名 选择 待 分 析 的 文本 文件 

$ geshi = ( '*.txt','TXT (*.txt)';http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
を '*.xlsx','EXCEL (*.xlsx)';http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... 
% #1, All Files (*.*)'); 

% [FileName, FilePath] = uigetfile( (geshi,' "导入 外 部 数据 '，'* .txt'v 'MultiSelect', "on') 7 % 选中 文本 文件 

きる 如 果 选 择 了 文本 文件 ， 生成 交 本 文件 的 完整 路 径 

% FileFullName = strcat (FilePath, FileName); 


$ FilePath = '.NVtxtN'; 
$ FileName = '999999.txt'; 
FileFullName = strcat (FilePath, FileName) ; & 文件 名 


data0 = importfile (FileFullName, 1, 6000) 
% 第 1 行 到 第 6000 行 ， 没 有 6000 行 MA NaN 


% 本 人 何人 处 理 如 下 : 


e ュー1 : size (data0, 1) る 
nans = isnan (data0 (i,:)); 


if sunGans)20 る 存在 NaN 
(k)=i; 
ps s 

end 
end 
data0(xb,:) = []; 
openprice = data0(:,1)'; $ 开盘 价 
highprice = data0(:,2)'; る 最 高 价 
lowprice = data0(:,3)'; $ 最 低 价 
closeprice = data0(:,4)'; を 收盘 


tradingvolumn- data0(:,5)'; % 成 交 量 
$$ 以 closeprice 为 参考 ， 进 行 上 证 指数 的 上 涨 、 下 跌 、 平 衡 态 处 理 


SX = nan*ones (size (closeprice, 1) , size (closeprice, 2)); る 初始 化 
for j=1:size(closeprice,1) 
for i-2:size(closeprice,2) 
if closeprice(j, i)-closeprice(j,i-1)»0 
SX(j,i)-1; % Li 


る elseif clsseprice (3; i)-closeprice (j,i-1)==0 
$ SX (j,i)-0; % 平衡 状态 
elseif "t Us i) Eu N i-1)«0 
i)=-1; を 下 跌 
end 
end 
end 


$ save data0.mat data0 SX closeprice highprice lowprice openprice tradingvolumn 


直接 获取 的 txt 数 据 格式 如 图 10-1 所 示 。 


时 间 MA. MA1 


1999/01/21 > ・ . 1158. 4480849 

1999/01/22 > > 7. 1162. 5549660 

1999/01/25 š > > 1148. 7960339 

1999/01/26 . ° e 1138. 6222353 

1999/01/27 T š Ç 1146. 1615983 1150. 73 
1999/01/28 7. ° 7. 1140. 6275005 1147.23 
1999/01/29 < ° . 1134. 5162285 1141. 69 
1999/02/01 < . a 1120. 5090785 1136.17 
1999/02/02 2i > > 1126. 4004043 1133. 81 
1999/02/03 > 7.27 . 1116. 3722555 1127. 89 
1999/02/04 < 1103. 3897462 1120. 39 
1999/02/05 š < 79. 1081. 4102126 1109. 74 
1999/02/08 16. ° . 17 1065. 3533488 1098. 80 
1999/02/09 a a s 1090. 3285546 1091.54 
1999/03/01 . . 1097. 2894492 1087. 76 
1999/03/02 d z L 1100. 4053588 1087. 24 
1999/03/03 < ° . 1128. 5597743 1096. 70 


jo C , 
纯 文本 文件 行 1 Ai . 


っ の Q * WW N => 


图 10-1 txt 文件 


如 图 10-1 所 示 ， 采 用 MATLAB 代 码 自动 从 图 10-1 中 提取 上 证 指数 开盘 价 数据 、 最 高 价 数据 、 最 低 价 数据 、 收 盘 价 数据 、 成 交 量 数据 ， 具 体 代 码 如 下 : 


function Untitled = importfile(filename, startRow, endRow) 

TMPORTFTTE1 将 文本 文件 t RC 为 矩阵 导入 

$ UNTITLED = IMPORTFILEl(FILENAME) 读 取 文本 文件 FILENAME 中 默认 选 定 范围 的 数据 
E 


T 


$ UNTITLED = IMPORTFILE1 (FILENAME, STARTROW, ENDROW) 读 取 文 本 文件 FILENAME 的 
$ — STARTROW 行 到 ENDROW 行 中 的 数据 

$ 

$ Example: 

$ Untitled = importfile('000001.txt', 3, 5525); 


%% 初始 化 变量 

if nargin<=2 
StartRow = 37 
endRow = 5525; 

end 


%% 将 数据 列 作为 字符 串 读 取 
$ 有 关 详 细 信 息 ， 请 参阅 TEXTSCAN 文档 
formatSpec = '$*12s$9s$9s$9s$9s$16s$[^WNr]'; 


%% 打开 文本 文件 


fileID = fopen (filename, 'r'); 


%% 根据 格式 字符 串 读 取 数据 列 
% 该 调用 基于 生成 此 代码 所 用 的 文件 的 结构 。 如 果 其 他 文件 出 现 错误 ， 请 尝试 通过 导入 工具 重新 生成 代码 
dataArray = textscan(fileID, formatSpec, endRow(1)-startRow(1)41, 'Delimiter', '', 'WhiteSpace', '', 'HeaderLines', startRow(1)-1, 'ReturnOnError', false); 
for block=2: length (startRow) 
frewind(fileID); 
dataArrayBlock = textscan(fileID, formatSpec, endRow(block)-startRow (block)*1, 'Delimiter', '', 'WhiteSpace', '', 'HeaderLines', startRow(block) -1, 'ReturnOnError', false 
for col-l:length (dataArray) 
dataArray(col) = [dataArray(col);dataArrayBlock(col)]; 


end 
end 


%% 关闭 文本 文件 
fclose(fileID); 


%% 将 包含 数值 字符 串 的 列 内 容 转换 为 数值 

o 将 非 数 值 字符 串 蔡 换 为 NaN 

raw = repmat((''),length(dataArray(1]),length (dataArray)-1); 

for col-l:length (dataArray) -1 
raw(1:length(dataArray(col)),col) = dataArray(col); 

end 

numericData = NaN (size (dataArray(1),1),size (dataArray, 2) ) ; 


for col-[1,2,3,4,5] 
% 将 输入 元 胞 数组 中 的 字符 串 转换 为 数值 。 已 将 非 数 值 字符 串 蔡 换 为 NaN 
rawData = dataArray(col); 
for row-l:size(rawData, 1); 
% 创建 正则 表达 式 以 检测 并 删除 非 数 值 的 前 级 和 后 级 
regexstr = '(?<prefix>.*?) (?<numbers> ([-]* (\d+[\,]*)+[\.]{0,1}\d* [eEdD] (0,1) [-+] *Nd* [3] {0,1}) | ([-]*(\d+[\,]*)*[\.] (1,1) Nd [eEdD] {0,1}[-+] *\d*[i]{0,1})) (2<suffix>.*)'; 
try 
result = regexp(rawData(row), regexstr, 'names'); 
numbers = result.numbers; 


% 在 非 千 位 位 置 中 检测 到 逗号 
invalidThousandsSeparator = false; 
if any(numbers--','); 
thousandsRegExp = '^\d+? (N, Nd (3)) *N. (0,1) Na*$' ; 
if isempty (regexp (thousandsRegExp, ',', 'once')); 
numbers = NaN; 
invalidThousandsSeparator - true; 
end 


end 
% 将 数值 字符 串 转换 为 数值 
if ~invalidThousandsSeparator; 
numbers = textscan(strrep(numbers, ',', ''), '$f'); 
numericData (row, col) = numbers(1); 
raw(row, col) = numbers(1); 
end 
catch me 
end 


end 
end 


%% 将 非 数 值 元 胞 蔡 换 为 NaN 
R= cellfun(@(x) ~isnumeric (x) && -islogical(x),raw); 查找 非 数 值 元 胞 
raw(R) = (NaN); % 蔡 换 非 数值 元 胞 


%% 创建 输出 变量 
Untitled = cell2mat (raw); 


运行 程序 ， 得 到 如 图 10-2 所 示 结 果 。 


u - wa — 


«ux Ed LR» MATLAB Edit 2013a » 
工作 区 


] © 此 文件 可 以 发 布 为 格式 化 文档 。 有 关 详细 信息 ， 请 参阅 发 布 视频 或 帮助 。 


1 X 作者 信息 : QQ 1174063087» Email: 1174063087@qq. com ul 
m 人 2 x 西南 交通 大 学 硕士 研究 生 ， 现 就 职 于 华为 公司 Wü: 媒体 算法 工程 师 — [g— 
r3 "Me 1⁄6 3 % 参考 本 代码 ， 请 引用 并 注 明 EPRS (RER) 
double 1x4200 double 1x4200 4- clc, clear, close all 5 清 屏 + 清理 工作 区 + 关闭 图 形 窗口 
double 1x4200 double 1x4200 5- warning off % 取消 警告 
double 1x4200 double 1x4200 1.007 e = feature jit off x 加 速 通道 
double 1x4200 double 1x4200 NaN 1 %% 导入 数据 
double 1x4200 double 1x4200 2353 L FilePath =”. tV: 
9- FileName = ° 999999. txt’ ; 


[SX, closeprice, highprice, lowprice, openprice,tradingvolumn]|- Get 
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fx >> 12 xx REKE "3 
13 - に for j-1:42 - 
14- O for i-1:38 = 
15 - alj, i)=(x (j, i+1)-x (j, 1) /x (j, i): % REKE 
I^ EJ = 


| 脚本 


ysw Markov.m (脚本 ) k A 


10-2 ”获取 待 分 析 数 据 


(2) 编写 上 证 指数 增长 率 数 据 如 下 : 


增长 率 公式 如 下 : 


closeprice, — closeprice, , 
の = —— f f.— 
closeprice, , 


由 此 编写 相应 的 程序 如 下 : 


%% 求 增长 率 -- 以 收盘 价 为 基础 
a = nan*ones (size(closeprice,1), size(closeprice,2)); る 初始 化 
for j=1:size (closeprice, 1) 
for i-2:size(closeprice,2) 
a(j,i)-(closeprice (j,i)-closeprice (j,i-1))/closeprice(j,i-1); 
s RAKE 


end 
end 


给 不 同 的 增长 率 赋值 不 同 的 级 别 ， 如 快速 上 升 (增长 率 >1%) 时 ，b=2; 缓慢 上 升 (增长 率 为 0~ 196) Bj, b=1; 相対 不変 (增长 率 为 ) 时 ，b=0; 缓慢 下 降 (增长 率 为 -1% ~ 0) Bj, b=-1; 快速 下 
降 (增长 率 <-1%) 时 ，b=-2。 


程序 代码 如 下 : 

b = nan*ones (size (closeprice,1), size(closeprice,2)); を 初始 化 
c = nan*ones (size (closeprice,1), size(closeprice,2)); る 初始 化 
Aim = 0.01; | % 增长 幅度 

% 分 别 为 不 同 增长 率 赋值 


for j=1:size (closeprice, 1) 
for i-1:size(closeprice,2) 
if a(j,i 


) 

b(j,i)-2; gs 快速 上 升 
elseif (a(],1) <Aim) && (a(], 1) >0) 

b(j,i)=1; SHE: 
elseif a(j,i)-- 

b(j,i)-0; SADSEASAE 
elseif a(j,i)»-Aim && a(j,i)«0 

b(j,i)--1; s FIR 
elseif a(j,i)«-Aim 

b(j,i)--2; $ 快 速 下 降 
end 

end 


运行 程序 ， 将 得 到 和 收盘 价 同 维度 的 和 矩阵， 具体 如 图 10-3 所 示 。 


3 s 6 7 8 
1.120: ^ 


1481e+03 1.1382e+03| 1.1465e+03 1.1410e+03| 1.1347e+03 E 


ijb x 


HH 1x4200 double 


图 10-3 增长 率 级 别 


统计 不 同 状态 之 间 的 转换 次 数 ， 具 体 代码 如 下 : 


c = 0*ones (size(closeprice,1), 25 ); る 初始 化 
% 统计 相连 增长 率 值 特征 
for j=1:size(closeprice,1) 

for i-1:size(closeprice,2)-1 


if (b(j,i)--2&&b(j,i41)--2) $ 快 速 增长 一 > 快速 增长 
c(j,1)=c(j,1)+1; 

elseif (b (j, i)==2&&b (j, i+1)==1) $ 快 速 增长 一 > 缓慢 增长 
c(j,2)=c (j,2)+1; 

elseif (b (j, i)==2&&b (j,i+1)==0) 快速 増 代 一 > 基本 不変 
c(3,3)-c(3,3) *1; K 

elseif (b(j,i)--2&&b(j,i*1)---1) $ 快 速 增长 一 > 缓慢 下 降 
c(),4)=c(3,4)+1; i. 

elseif (b (j,i)==2&&b (j,i+1)==-2) $ 快 速 增长 一 > 快速 下 降 
c(5,5)2c6,5) 41; 

elseif(b(j,i)--1&&b(j,i*1)--2) SL S KE posite 
c3, 6) =c( け , 6) *1; 

elseif(b(j,i)--1&&b(j,i*1)--1) 缓慢 增长 一 > 缓慢 增长 
c(),7)=c(3,7)+1; 

elseif(b(j,i)--1&&b(j,i*1)--0) s 缓 慢 增长 一 > 基本 不 变 
c(5,8)7c(5,8) 41; E 

elseif (b (j, i)==1&&b (j, i+1)==-1) s 缓 慢 增 长 一 > 缓慢 下 降 
c(3,9)-c(3,9) t1; e 

elseif (b(j,i)--1&&b(j,i*1)---2) sg 缓慢 增长 一 > 快速 下 降 
c3, 10) =c(}, 10)+1: i 

elseif (b(j,i)--0&&b(j,i*1)--2) $ 基 本 不 变 一 > 快速 增长 
c3, 11) =c 3, 11) +1: 

elseif (b(j,i)--0&&b(j,i*1)--1) gs 基 本 不 变 一 > 缓慢 增长 
c(5,12)7c (5,12) 41; " 

elseif (b(j,i)==0&&b(j,i+1)==0) $ 基 本 不 变 一 > 基本 不 变 
c(j,13)=c(j,13)+1; E 

elseif (b(j,i)--0&&b(j,i*1)---1) $ 基 本 不 变 一 > 缓慢 下 降 
c(j,14)2c 8,14) 1; $ 

elseif (b (j, i)==0&&b (j, 1+1) ==-2) $ 基 本 不 变 一 > 快速 下 降 
c(j,15)=c(j,15)+1; p 

elseif(b(j,i)==-1&&b(j,i+1)==2) sg 缓慢 下 降 一 > 快速 增长 
c(j,16)=c(j,16)+1; » 

elseif(b(j,i)---1&&b(j,i*1)--1) s 缓 慢 下 降 一 > 缓慢 增长 
c(j,17)2c 8,17) H1; 

elseif (b (j, i)==-1&&b (j, i+1)==0) sg 缓慢 下 降 一 > 基本 不 变 


c(j,18)=c(j,18)+1; 

elseif (b(j, i) ==-1&&b (j, i+1)==-1) 3 缓慢 下 降 一 > 缓慢 下 降 
c(5,19)7c (5,19) 41; 

elseif (b (j,i)==-1&&b (j,i+1)==-2) S& 缓 慢 下 降 一 > 快速 下 降 
c(3,20)=c(3,20)+1; 


elseif (b (j, i)==-2&&b (j, i+1)==2) gs 快速 下 降 一 > 快速 增长 
c(),21)=c(3,21)+1; _ 

elseif (b (j, i)==-2&&b (j, i+1)==1) gs 快 速 下 降 一 > 缓慢 增长 
c(j,22) 2c 9,22) t1; _ 

elseif (b (j, i)==-2&&b (j, i+1)==0) る 快速 下降 一 > 基本 不変 


c3,23) 2c 5,23) 1; 
elseif (b (j,i) ==-2&&b (j, i+1)==-1) Sos FERES AIF E 


c(3,24)-c (3,24) +1: 
elseif(b(j,i)---2&&b (j,i*1)---2) 
c(3,25)-c (5,25) +1: 


% 快 速 下 降 一 > 快速 下 降 


1 £ 15 Jj 
234 288 0 237 148 253 399 0 422 232 
16 至 25 列 
213 355 0 338 263 207 264 1 17 17 


由 于 有 5 种 状态 ， 那 么 状态 之 间 的 转化 有 25 种 转化 过 程 。 经 过 求解 ， 分 别 求解 出 25 种 状态 所 发 生 的 次 数 C 和 矩阵 。 


我 们 知道 ， 历 年 来 ， 快 速 增长 到 基本 不 变 的 转变 次 数 为 0， 这 种 状态 是 不 曾 发 生 的 。 同 样 缓慢 增长 到 基本 不 变 的 次 数 也 为 0，! 


保持 不 变 的 次 数 为 1 次 。 


分 别 统计 第 一 个 状态 为 快速 增长 的 次 数 、 为 缓慢 增长 的 次 数 、 为 基本 不 变 的 次 数 、 为 缓慢 下 降 的 次 数 、 为 快速 下 降 的 次 数 ， 


归根 结 底 是 由 于 上 证 指数 连续 两 天 保持 不 变 的 次 数 为 1 次 ， 即 由 快速 下 降 到 


体 代码 如 下 : 


d = 0*ones (size (closeprice,1), 5 ); 
% 累加 求 和 
for i-1:size(closeprice,1) 
for ]=1:s1ze (C, 2) 
if(j«-5) 
d(i,1)=d(i,1)+c (i,j); 
elseif (j>5&&j<=10) 
d(i,2)=d (i,2)+c (i,j); 
elseif (j>10&&j<=15) 
d(i,3)=d (i, 3) +c (i,j); 
elseif (>15&&] く 21 ) 
à(i,4)-à(, 4) +e 4,3) ; 


% 初始 化 


% 先 快速 增长 变化 的 累加 值 
% 先 缓慢 增长 变化 的 累加 值 
% 先 基本 不 变 变 化 的 累加 值 
% 先 缓慢 下 降 变 化 的 累加 值 


else 
d(i,5)-d(i,5)*c(i,3); % 先 快速 下 降 变 化 的 累加 值 
end 
end 
end 
运行 程序 得 到 如 下 结果 
d- 
907 1306 1 1169 815 


整理 得 到 C 和 D 和 矩阵 数值 ， 如 表 10-1 所 示 。 


D 值 


5 种 状态 D1=907 D2-1306 D4=1169 Ds=815 


快速 增长 cu =148 


缓慢 增长 €317253 
基本 不 变 €3170 


缓慢 下 降 c4l=213 


快速 下 降 


从 而 获得 一 步 转移 概率 矩阵 FE，MATLAB 程 序 如 下 : 


%% 一 步 转移 概率 矩阵 ; 
e- zeros(5,5); s 初始 化 0 值 
for i-1:size(closeprice, 1) 

for ]=1:25 


e(1,3)7cG,3) /d(i,1); 


end 
elseif (]>5&&] く 11 ) 
if (d(i,2)==0) 
e(5,3-5)-0; 
else 
e(2,3-5)-c (i,j) /d(3,2) 
end 
elseif (j210&&j«16) 
if(d(i,3)--0) 
e(5,j-10)-20; 
else 


e(3,j-10)=c (1,3) /d(,3) ; 


end 
elseif (>15&&] く 21 ) 
if(d(i,4)--0) 
e(5,j-15)=0; 
else 


e(4,j-15)=c (1,3) /d (i, 4); 


end 
else 
if (d (i, 5)==0) 
e(5,j-20)=0; 
else 


e(5,j-20)=c 1,3) /d(1,5) ; 


运行 程序 ， 得 到 如 下 结果 : 


% 转 移 值 


% 转 移 值 


% 转 移 值 


% 转 移 值 


% 转 移 值 


の ご 232 


es=0 と 0 cl 


cas=263 
css=171 


0.2580 0.3175 0 0.2613 0.1632 
0.1937 0.3055 0 0.3231 0.1776 

0 0 0 0 1.0000 
0.1822 0.3037 0 0.2891 0.2250 
0.2540 0.3239 0.0012 0.2110 0.2098 


BESIT: 
0.2580 0.3175 0 0.2613 0.1632 
0.1937 0.3055 0 0.3231 0.1776 
E- 0 0 0 0 l 
0.1822 0.3007 0 0.289] | 0.2250 
0.2540 0.3239 0.0012 0.2110 0.2098 


如 果 目 前 预测 对 象 处 于 状态 Bi (i21, 2, 3, 4, 5) ， 这 时 Ei 就 描述 了 目前 状态 Bi 在 未 来 将 转向 状态 Bj (71, 2, 3, 4, 5) 的 可 能 性 。 按 最 大 概率 原则 ， 即 选择 (Ej, Ej, Ei, Eip, Eis) 中 最 大 者 对 
应 的 状态 即 为 预测 结果 


由 于 2016 年 6 月 3 日 的 上 证 指数 的 增长 率 状态 为 E2， 即 缓慢 增长 ， 而 经 由 一 次 转移 到 达 5 种 状态 的 概率 分 别 为 : E21=0.1937, E22=0.3055, E23=0.0, E24=0.3231, E25=0.1776。 


Max(Ei, Ei, Ei3, Ei4, Eis}=E24=0.3231 


而 且 ，E21，E22，E24，E25 与 E23 相 比 均 相差 较 大 ，E22 与 E24 相 差不多 ， 一 般 认为 谁 最 大 谁 最 可 靠 ， 因 此 未 来 一 天 增长 率 为 缓慢 下 降 。 当 时 考虑 到 其 波动 性 和 随机 性 ， 缓 慢 增 长 也 是 很 有 可 能 | 


同时 ， 在 马尔 可 夫 链 运算 过 程 中 ， 不 同时 期 的 状态 概率 用 状态 向 量 表示 ， 公 式 为 Ei (n) =Ei (n-1) E， 按 此 公式 ， 也 可 以 计算 出 未 来 几 天 或 者 数 月 的 变动 趋势 ， 其 中 E 为 上 述 中 的 一 步 转移 概率 矩阵 。 
体 的 程序 代码 如 下 : 


%% 预测 
% b(end) = 1; 
f = b(eng); % 缓慢 增长 
hl = e(2,:); % 未 来 一 天 的 预测 结果 ， 值 越 大 越 有 可 能 
for i-1:size(closeprice, 1) 
g-zeros (1,5); % 预测 增长 率 
if(f(i,1)--2) 
h-[1 0 0 0 0 ]*e $ 未 来 第 1 天 的 预测 结果 ， 值 越 大 越 有 可 能 
for k=1:6 % 未 来 2 一 7 天 的 预测 
h=hxe $ 状态 
end 
elseif(f(i,1)--1) 
g(i,:)=[0 1 0 0 0 ]; P 
h=g(i,:)*e $ 未 来 第 1 天 的 预测 结果 ， 值 越 大 越 有 可 能 
for k-1:6 多 PR SAI 
h-h*e を 状态 值 
end 
elseif (f (i,1)==0) 
gli,:)=[0 0 1 0 O ]; " 
h-g (1, :) *e 5 未 来 第 1 天 的 预测 结果 ， 值 越 大 越 有 可 能 
for k=1:6 を 未 来 2 一 7 天 的 预测 
h=hxe % 状态 值 
end 
elseif(f(i,1)---1) 
g(i,:)=[0 0 0 1 0 ]; 
h=g (i, :) *e & 未 来 第 1 天 的 预测 结果 ， 值 越 大 越 有 可 能 
for k-1:6 s 未 来 2 一 7 天 的 预测 
h=h*e % 状态 值 
end 
elseif (f (i,1)==-2) 
和 
h-g (i, :) *e $ 未 来 第 1 天 的 预测 结果 ， 值 越 大 越 有 可 能 
for k=1:6 % 未 来 2 一 ?天 的 预测 
h=hxe % 状态 值 
end 
end 
end 
运行 程序 ， 得 到 如 下 结果 
h = 
0.1937 0.3055 0 0.3231 0.1776 
h = 
0.2132 0.3105 0.0002 0.2803 0.1959 
h = 
0.2160 0.3111 0.0002 0.2784 0.1943 
h = 
0.2161 0.3111 0.0002 0.2785 0.1941 
h = 
0.2161 0.3111 0.0002 0.2785 0.1941 
h = 
0.2161 0.3111 0.0002 0.2785 0.1941 
h = 
0.2161 0.3111 0.0002 0.2785 0.1941 


整理 结果 如 下 : 


0.2580 03175 
0.1937 0.3055 
E()-E(0)E-[010,00] 0 0 
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0.2613 0.1632 
0.3231 0.1776 
0 l 
0.1822 0.3037 0 0.289] 0.2250 
0.2540 0.3239 0.0012 0.2110 0.2098 


oOo © c 


对 每 个 状态 向 量 ， 均 取 其 中 最 大 的 那个 概率 值 。 以 上 结果 表明 : 在 未 来 7 天 内 ， 上 证 指数 处 于 缓慢 增长 势头 ， 并 且 缓 慢 下 降 的 概率 与 缓慢 增长 的 概率 也 是 旗 鼓 相当 ， 此 时 投资 者 应 该 谨慎 ， 变 盘 可 能 性 较 
X (本 书 涉及 的 算法 预测 结果 ， 仅 供 参考 ) 


10.4” 隐 马尔 可 夫 模 型 浮 数 表 


MATLAB 2015a 开 始 提供 了 隐 马 尔 可 夫 模 型 (HMM) 函数， 具体 如 表 10-2 所 示 。 


表 10-2 隐 马 尔 可 夫 模 型 函数 表 


EK 数 功 能 
hmmdecode 计算 序列 状态 的 后 验 概 率 
hmmestimate 估计 隐 马 尔 可 夫 模 型 的 参数 
hmmgenerate 为 隐 马 尔 可 夫 模 型 产生 一 个 序列 
hmmtrain 计算 隐 马 尔 可 夫 模 型 的 最 大 似 然 估计 
hmmviterbi 计算 马尔 可 夫 模 型 序列 到 达 最 可 能 状态 的 路 径 
注 : 如 果 读 者 对 隐 马 尔 科 夫 模型 (HMM) 感 兴趣 ， 可 继续 关注 本 书 的 动态 。 


第 11 章 ”灰色 理论 下 的 上 证 指数 预测 


灰色 理论 是 较为 常见 的 一 个 介 于 白色 和 黑色 系统 之 间 的 系统 ， 灰 色 系 统 包含 一 部 分 已 知 量 ， 一 部 分 未 知 量 ， 通 过 一 部 分 已 知 量 和 相应 的 隐 函 数 ， 即 可 近似 分 析 某 个 工 况 的 情况 ， 这 样 的 解析 方法 多 用 在 
经 济 学 问题 、 社 会 问题 (GDP、CPI 等 指数 ) 、 人 口 及 生态 系统 问题 等 领域 。 本 章 通过 上 证 指数 收盘 价 数据 ， 利 用 灰色 理论 来 分 析 未 来 几 天 或 者 数 月 上 证 指数 的 上 涨 下 跌 状态 值 。 


11.1 灰色 理论 分 析 


灰色 系统 理论 是 针对 短期 的 时 间 变 化 数据 而 言 的 。 对 于 长 时 间 的 系统 数据 ， 灰 色 理论 预测 误差 很 大 。 并 且 ， 灰 色 系 统 理论 对 于 给 定 的 系统 隐 式 方程 是 可 以 用 来 逼近 原始 数据 的 ， 这 一 点 极 大 限制 了 程序 
的 泛 化 能 力 ， 也 就 是 要 求 分 析 的 数据 是 服从 某 种 规律 的 。 


灰色 系统 理论 包括 灰色 关联 性 分 析 和 灰色 预测 模型 。 灰 色 关联 分 析 通 过 分 析 灰色 系统 里 各 因素 的 相 异 程度 ， 给 出 各 因素 之 间 的 关联 程度 ; 灰色 预测 模型 对 原始 数据 进行 处 理 ， 生 成 有 较 强 规律 性 的 数据 
序列 ， 然 后 建立 相应 的 微分 方程 ， 进 而 预测 未 来 发 展 趋势 。 


灰色 预测 模型 广泛 地 应 用 于 时 间 序 列 的 波动 数据 行业 中 ， 如 ， 某 个 食品 的 价格 、CPI 指 数 和 上 证 指数 等 。 灰 色 预 测 模型 因 其 自身 数据 的 统计 特性 ， 在 预测 行业 中 起 到 举足轻重 的 作用 。 


11.2 ”灰色 关联 分 析 流 程 


灰色 关联 分 析 的 计算 步骤 如 下 。 


(1) 建立 各 相关 指标 的 原始 数据 矩阵 xi; 


式 中 , xi (k) 表示 i 因素 在 第 k 年 的 原始 数据 。 


T d 
(2) 求 初 值 化 变换 矩阵 飞 i ; 


xj = (x,()/ x; (1), x; (2)/ x; (0. x, (e) i 5 G5 x52). x (0. 


(3) si rien] Av (k), 


Av) - rit) v(a) 


Ao (k) - (^o; (0, AQ): "Ag; (k), l .) 


E » 
(4) 计算 关联 系数 全 /和 灰色 关联 度 ^i 


min min A,, (k )4- 9 max max A。 (ん ) 
| D 


る (4)= 一 一 I 


其 中 ，q 为 分 辨 系数 ， 其 


Ag, (kt の max max Aoi (k) 


则 灰色 关联 度 为 : 


作用 在 于 提高 关联 系数 间 的 差异 显著 性 ， 中 E (0, 1) , 一 般 取 ゅ =0.5。 


113 ”多 指标 灰色 关联 度 计算 


在 此 选 


DPO 区 间 震 荡 线 
指标 和 WIDTH 布 


趋势 指标 ， 


ACCER 幅 度 涨 速 指标 、ADTM 动 态 买卖 人 气 指标 、BB 布 林 极 限 指标 、BIAS 乖 离 率 指标 、CCI 顺 势 指标 、CYF 市 场 能量 指 标 、DBCD 异 同 离 差 乖 离 率 指标 、DKX 多 空 线 指标 、 


EER. FSL 分 水 岭 指标 、KDJ 随 机 指标 、LWR-L 威 廉 指标 、ROC 变 动 速率 指标 、RSsIl 相 对 强 弱 指标 、SKDJ 慢 速 随机 指标 、3I 摆 动 指标 、SRDM 动 向 速度 比率 指标 、UDL 引 力 线 指标 、WR 威 廉 
林 极 限 宽度 指标 ， 作 为 灰色 关联 分 析 数 据 。 


(1) 获取 


体 的 数据 如 


国 11-1 所 示 。 


3 4 | 
-0.3380 -0.1161 


5 


-0.1591 


6 
-0.0247 


-0.7362 


-0.8940 
-0.2567 


-0.7309 
-0.6128 
-0.2127 


-04516 -0.3486 
-0.1844 -0.5904 
-0.0274 -0.3766 


-0.4054 
-1.0000 
0.0529. 
-0.0235 
-0.2280 
0.0218 
-0.4396 
0.9973 
0.7763 


待 分 析 的 数据 为 21 行 x101 列 的 数组 ， 有 21 个 变量 ， 


-0.3877 
-0.8535 
0.0418 
-0.0549 
-0.2849 
-0.0238 
-0.4948 
0.6036 
0.7059 


-0.2923 
0.1712 
0.0343 
0.0271 
-0.2843 
-0.0647 
-0.4538 
0.3040. 
0.5169 


-04515 
-1.0000 
0.0210 
-0.2456 
-0.3989 
-0.1152 
-0.6049 
0.9653 
0.7619 


图 11-1 待 分 析 的 数据 


个 变量 有 101 个 数据 。 具 体 程序 如 下 : 


-0.6807 


-0.2269 


-0.1883 
-0.3568 
-0.6079 


0.0078 


-0.1828 
-0.4338 
-0.1649 


-0.6177 


0.5569 


0.6747 


-0.7743 
-0.7065 
-0.4042 
-0.2376 
-1.0000 
-0.0093 
-0.3693 
-0.5388 
-0.2221 
-0.7454 
1 
0.8587 


clc,clear,close all 
warning off iH REI 
feature jit off 


$5 导入 


を 清 屏 、 清 理工 作 区 、 关 闭 
$ 取消 警告 


形 窗口 


% 加 速 通道 


数据 
$ 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 
$ get output SX; $ 上 证 指数 的 3 个 状态 
$ get input index4; 当 趋势 指标 
$ get input index5; を 反 趋 势 指标 
$ save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


z 归 一 化 
i “分析 nexs 赴 势 指标 
% 指标 ACCER- 幅 度 涨 速 指标 、ADTM- 动 态 买 卖 人 气 指标 、BB- 布 林 极限 
$ BIRAS- 乖 离 率 指标 、CCI- 顺 势 指标 、CYF- 市 场 能 量 指标 、DBCD- NERA. 
$ PEX- 多 空 线 指标 、 DP PO- 区 间 震 荡 线 指标 、 FSL- 分 水 岭 指标 、 ”KDJ- 随 机 指标 、 


s 随机 指标 、 
$ SI- - 提 动 指标 、 SRDM-: -动向 速度 比率 指标 、 UDL- 引 力 线 指标 、WR- 威 廉 指 标 和 WIDTH- 布 林 极 限 宽度 指标 


index x = index5(:,1:end-1); % 前 一 天 指标 值 
index y = SX(: sength(S%) - size(index x,2)+1:end); 
$ 对 index_x 归 一 化 处 

for i-1: ede x, 1) 


g = []; % 初始 化 


% 第 二 天 的 涨幅 状态 


x = index x(i,:); s 逐个 获取 指标 数据 
[x,setting] = mapminmax (x); $ x 归 一 化 
settings(i,1) = setting; る 归 一 化 参数 

index xx(i,:) = x; を 重新 赋值 


end 


%% 待 分 析 
index xx = index xx(:,4500:end) 
index y = index y(:,4500:end) 


$ 内 存 不 足 ， 截 断 提取 
% 内 存 不足 ， 截 断 提取 


1)/x().x (2) x (0). (9! DY). 


(2) 求 解 初 化 変 短 降 具体 各 下 ” l 


%% 初 值 化 变换 矩阵 
for i-1:size(index xx,1) 
for j=1: size (index : xx,2) 
y2(i,j) = index xx(i,j)./index xx(1,]) 
end 
end 


(3) 求 差 序列 名 O7 0-3] mr: 


%% 差 序列 
for i=2:size (index xx,1) 
for j=1:size (index xx,2) 
y3 (i-1,j)=abs (72 (i,j)-y2(1,j)); 名 差 序 列 
end 
end 


(4) 计算 关联 系数 人 oi， 具体 如 下 : 


%% 计算 关联 系数 
a-l; b-0; 
for i-1:size(y3,1) 
for jel:size(y3,2) 
if(y3(i,j)«-a) 


a=y3 (i,j); 
elseif (y3(i,j)»-b) 
b=y3 (i,j); 
end 
end 
end 
な ーーー N 
则 灰色 关联 度 ““-! 伍 ” ， 具 体 代 码 如 下 : 


%% 计算 灰色 关联 度 
for i-1:size(y3,1) 
for jel:size(y3,2) 
y4 (1,3) - (a*0.5*b) / (y3(1,3) +0.5*b) ; 


end 
end 
y5=sum(y4') / (size (index xx,2)-1) 


由 此 灰色 关联 分 析 整 体 程序 设计 完成 。 


采用 灰色 关联 分 析 来 分 析 反 趋势 指标 ， 具 体 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off 取消 警告 
$ 通道 


feature jit off 加 速 通道 

%% 导入 数据 

る 1 表示 上 涨 ，0 表 示 平 衡 ，-1 为 下 跌 

$ get output SX; $ 上 证 指数 的 3 个 状态 
$ get input index4; % 趋势 指标 

$ get input index5; & 反 趋 势 指标 


% save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 


load('database.mat') 
clear closeprice highprice lowprice openprice tradingvolumn 


ss 归 一 化 
分 析 index5 趋 势 指标  _ " " 
指标 : ACCER- 幅 度 涨 速 指标 、ADTM- 动 态 买卖 人 气 指标 、BB- 布 林 极限 指标 、 ””_ 
离 率 指标 、CCI- 顺 势 指标 、CYF- 市 场 能 量 指标 、DBCD- 异 同 离 差 乖 离 率 指标 、 
空 线 指标 、DPO- 区 间 震 荡 线 指标 、FSL- 分 水 岭 指标 、 ”KDJ- 随 机 指标 、 
LWR-L 威 廉 指 标 、ROC- 变 动 速率 指标 、RSI- 相 对 强 弱 指 标 、SKDJ- 慢 速 随机 指标 、 
SI- 摆 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、wR- 威 廉 指标 和 WIDTH- 布 林 极 限 宽度 指标 


index x = index5(:,1:end-1); を 前 一 天 指标 值 
) 
" 


index y = SX(:,length(SX)-size (index x,2)*1:end); を 第 二 天 的 涨幅 状态 
$ 对 index_x 归 一 化 处 理 
for i-1:size(index x,1) 

x = []; る 初始 化 

x = index x(i,:); s 逐个 获取 指标 数据 

[x, setting] = mapminmax (x); 化 


参数 
重新 赋值 


settings(i,l) = setting; 
index xx(i,:) X; 


end 


$5 待 分 析 
index xx = index xx(:,4500:end); 
index y = index y(:,4500:end); 


%% 初 值 化 变换 矩阵 
for 1=1:s1ze(1ndex xx,1) 
for j=l:size(index xx,2) 
y2(i,j) = index xx(i,j)./index xx(1,j); 
end 


不 足 ， 截 断 提取 
不 足 ， 截 断 提取 


end 


%% 差 序列 
for i=2:size (index xx,1) 
for j=1:size (index xx,2) 
y3(i-1,j)-abs (y2 (4,3) -y2 (1,3) ; % 差 序列 
end 
end 


$5 计算 关联 系数 


:size(y3,1) 
for j=l:size (y3,2) 
if(y3(i,j)«-a) 
a=y3 (i,j); 
elseif (y3(i,j)>=b) 
b=y3 (i,j); 
end 
end 
end 


%% 计算 灰色 关联 度 
for i-1:size(y3,1) 
for jel:size(y3,2) 
y4 (i, 3) = (a30. 5*b) / (y3 (3,3) 40.5*b) ; 


end 
end 
y5=sum(y4') / (size (index xx,2)-1) 


运行 程序 ， 其 结果 具体 如 下 : 


YS = 

1 全 9 列 

0.9903 0.9938 1.0010 1.0037 0.9871 1.0011 1.0001 0.9986 
10 £ 18 列 

0.9968 0.9938 0.9922 1.0043 1.0020 0.9942 0.9950 1.0004 
19 至 20 列 


1.0010 


0.9940 


1.0007 0.9865 


由 关联 度 结果 可 知 ， 基 于 第 一 个 指标 ACCER 幅 度 涨 速 指标 ， 其 与 20 个 指标 与 ACCER 幅 


11.4 ”灰色 预测 异型 流程 


灰色 预测 中 GM (1，1) 预测 模型 的 求解 过 程 如 下 。 


(1) 设 有 数列 x O 共有 n 个 观察 值 ， 


x V (1), x9 (2), -xV (n) 


(2) xix (© 做 累加 生成 ， 得 到 新 的 数列 x (!) ， 其 元 素 


x) e 2 x in) i212, 
m-l 


x" (ea (0 


x (2) = x9 (1) + x?) (2) 
= xP (1) + x0 (2) 


度 涨 速 指标 的 关联 度 系数 均 位 于 


1 左右 , 


因 


此 对 了 


这 些 指标 本 身 而 言 ， 是 相辅相成 的 。 


x (3) = x (1) + x9 (2) 4. x (3) 


= x” (2) + x9 3) 


x? (n) = x (n - 1) + x? (n) 


(3) 对 数列 x (1) ， 可 建立 预测 模型 的 


白化 形式 方程 ， 


dx” 


ーーー tax 


dt 


式 中 : a，u 为 待 估计 参数 ， 分 别称 为 发 


iQ 为 待 估计 参数 向 量 ， 则 有 : 


展 灰 数 和 内 生 控制 灰 数 。 


1 MN 


e 
|| 


^ 1l —] p T 
a=(b B) B y, 
1 G) ① 
uS (1) - x^ (2)) l 


p= MO +x) 1 


- っ (n-1)* x? (n)) 1 


Ju [x9 (2), e (3), "tts x (n)]' 


(5) RAISE (3) ， 将 人 代入 其 微分 方程 式 ， 并 解 微分 方程 ， 有 (1, 1) Sano: mme 


11.5_ACCER 幅 度 涨 速 指标 灰色 预测 


选取 第 一 个 指标 ACCER 幅 度 涨 速 指标 作为 分 析 数 据 ， 进 行 灰色 预测 分 析 。 


(1) 获取 上 证 指数 数据 ， 主 代码 如 下 : 


index x = cO , 1:end-1) $ 前 一 天 指标 值 _ 
index y = SX(:,length(SX)-size (index x,2)*1:end); & 第 二 天 的 涨幅 状态 
を 対 index CCAR 


for i-1:size (index x,1) 


x = []; % 初始 化 
x = index x(i,:); $ 逐个 获取 指标 数据 
[x, setting] = mapminmax (x); を x 归 一 化 
settings{i,1} = setting; を 归 一 化 参数 
index xx(i,:) = x; $ 重新 赋值 
end 
$$% 待 分 析 
index xx = index xx(:,4500:eng); % 内 存 不 足 ， 截 断 提取 
index y = index y(:,4500:end); s 内 存 不 足 ， 截 断 提取 


dk” 


(2) 对 数列 x (①) ， 求 解 白化 形式 方程 a ““， 按 最 小 二 乘法 求解 待 估计 参数 向 量 。 编 写 相 应 的 程序 如 下 : 


%% 灰色 预测 

x1 = index xx(1,80:end); $ 输入 数据 
= 1ength (x1); % 数据 长 度 

tl = 1:n; 

ux = polyfit(tl,x1,2); 

u(1) = ux(1); 

u(2) = ux(2); 

x11 = ux(3); 


x=[]; % 初始 化 

syms a b y(x) x00 x 

x-dsolve (diff (y) --a*x*b, y (0) 27x00) A 

x=subs (x, {'a', 'b', 'x00'), (2*u 10), u(2),x11]) 

digits (6) , y=vpa (x) TT 先 计算 预测 值 ， 再 显示 微分 方程 的 解 


yuce = double( subs (x, 'x', [0:n-1]) ); る 计算 预测 值 
epsilon-xl-yuce; を 计算 残 差 
delta-abs (epsilon./x1); $ 计算 相对 误差 


figure(1), 

plot(xl,'r.-'); mE on; 

plot (yuce, 'bo-') 

legend('ACCER- sco IURE "灰色 预测 ') 


figure, 2 
plot (epsilon, 'bo-'); title(' 预 测 误差 曲线 ') 


运行 程序 ， 输 出 结果 如 下 : 


y- 
— 0.000364863*x^2 + 0.0293847*x - 0.109622 


得 到 相应 的 图 形 ， 如 图 11-2 和 图 11-3 所 示 。 


——— 


文件 日 ”编辑 (E) EEV 插入 D IA SEO 窗口 WM) #Bh(H) *" 


nene s «0994-0 am 


と 1 Is" 


ACCER-W FE icis 6 bs I s S E 
一 合 一 灰色 预测 


图 11-2 ACCER 灰 色 预 测 


文件 昌 SSO EEV A IAD SMO SOW Rb) 
Guse s << a. naa am 
预测 误差 曲线 


0.2 


图 11-3 ”灰色 预测 误差 


由 图 11-2 和 图 11-3 可 知 ， 灰 色 预 测 分 析 能 够 很 好 地 拟 合 原始 数据 ， 灰 色 预 测 适合 短期 数据 分 析 ， 对 于 较 长 期 预测 性 能 效果 欠 佳 。 


相应 的 整体 灰色 预测 程序 如 下 : 


clc,clear,close all US It 工作 区 、 关 闭 图 形 窗口 
warning off 取消 警 

feature jit off + miak 

$$ 导入 

1 表示 上 涨 ，0 表 示 平 衡 ， -INTE 

get_output_SX; 名 上 证 指数 的 3 个 状态 

get input index4; HER 

% get input index5; を 反 趋势 指标 

$ save database.mat closeprice highprice index4 index5 lowprice openprice SX tradingvolumn 
load('database.mat') 


de di 


je de de oe 


clear closeprice highprice lowprice openprice tradingvolumn 


%% 归 一 化 

$ 分 析 index5 趋 势 指 标 

$ 指标 : ACCER- 幅 度 涨 速 指标 、ADTM- 动 态 买 卖 人 气 指标 、BB- 布 林 极限 指标 、 

$ BIAS- 乖 离 率 指标 、CCI- 顺 势 指标 、CYF-~ 市 场 能 量 指标 、DBCD- 异 同 离 差 乖 离 率 指标 、 
° 


DKX- 多 空 线 指标 、DPO- 区 间 震 荡 线 指标 、FSL- 分 水 岭 指 标 、 ”KDJ- 随 机 指标 、 
LWR-IL 威 廉 指 标 、ROC- worin RSI- 相 对 强 弱 指标 、SKDJ- 慢 速 随机 指标 、 > 
SI- 摆 动 指标 、SRDM- 动 向 速度 比率 指标 、UDL- 引 力 线 指标 、V- 威 廉 指标 和 mWITDTH- 布 林 极 限 宽度 指标 


index x = ier 1:end-1); $ 前 一 天 指标 值 S 
index y - SX(: , length (SX) - size (index x,2)+1:end); S 第 二 天 的 涨幅 状态 
$ 対 index NOU 化 处 理 

for i-1: Size (index x,1) 


x-[ s 初始 化 


n 
x = index x(i,:); % 逐个 获取 指标 数据 
[x,setting] = mapminmax (x) ; る x 归 一 化 
settings{i,1} = setting; る 归 一 化 参数 
index xx(i,:) = x; る 重新 赋值 
end 
%% 待 分 析 
index xx = index xx(:,4500:end); s 内 存 不 足 ， 截 断 提取 
index y = index y(:,4500:end) る 内 存 不 足 ， 截 断 提取 


$5 灰色 预测 

x1 = index xx(1,80:end); を 输入 数据 
n = length(x1); $ 数据 长 度 
tl = 1:n; 

ux = polyfit(tl,x1,2); 

u(1) = ux(1); 

u(2) = ux(2); 

x11 = ux(3); 


x=[]; % 初始 化 
syms a b y(x) x00 x 
x-dsolve (diff (y)==a*x+b, y (0)==x00) ; 


x=subs (x, ('a', 'b', 'x00'}, {2*u (1) ,u (2) ,x11}); 

digits (6) , y=vpa (x) % 为 提高 预测 精度 ， 先 计算 预测 值 ， 再 显示 微分 方程 的 解 
yuce = double( subs (x, 'x', [0:n-1]) ); % 计算 预测 值 

epsilon-x1l-yuce; $ 计算 残 差 

delta-abs (epsilon./x1l); s 计算 相对 误差 

figure(1), 

plot(xl,'r.-'); hold on; 


plot (yuce, 'bo-'); 
legend ('ACCER- 幅 度 涨 速 指标 原始 数据 ',' 灰 色 预 测 ') 


figure, 
plot (epsilon, 'bo-'); title(' 预 测 误差 曲线 ') 


灰色 理论 认为 系统 的 行为 现象 尽管 是 滕 蝶 的， 数据 是 复杂 的 ， 但 毕竟 是 有 序 的 ， 是 有 整体 功能 的 。 灰 数 的 生成 ， 就 是 从 杂乱 中 寻找 规律 。 同 时 ， 灰 色 理 论 建 立 的 是 生成 数据 模型 ， 不 是 原始 数据 模型 ， 
因此 ， 灰 色 预 测 的 数据 是 通过 生成 数据 的 GM (1, 1) 模型 所 得 到 的 预测 值 的 逆 处 理 结果 。 


第 12 章 “指数 平滑 下 的 上 证 指数 预测 


时 间 序 列 的 数据 ， 如 股票 Stock、 食 品 价格 (CPI 指 数 ) 、 人 口 数量 、 温 湿度 等 都 是 随时 间 变 化 的 数据 序列 ， 在 日 常生 活 中 屡见不鲜 ， 考 虑 到 时 间 是 一 直 存 在 的 变量 ， 导 致 时 间 序 列 的 数据 量 大 上 且 处 理 难 
度 较 大 ， 因 此 对 于 数据 的 平滑 处 理 显得 很 重要 ， 各 种 趋势 指标 也 是 基于 数据 平滑 处 理 方法 计算 而 来 。 本 章 通过 选取 上 证 指数 收盘 价 数据 ， 利 用 指数 平滑 方法 来 分 析 未 来 几 天 或 者 数 月 的 上 证 指数 预测 值 。 


12.1 指数 平滑 分 析 


时 间 序 列 数据 随时 间 变 化 波动 ， 一 般 数 据 分 布 无 规律 、 分 布 较 离 散 ， 因 此 较 难 用 一 般 的 线性 关系 表示 ， 而 指数 平滑 法 (ES, Exponential Smoothing) 则 认为 时 间 序 列 的 态势 具有 稳定 性 或 规则 性 。 


12.1.1 一 次 指数 平滑 预测 法 


一 次 指数 平滑 预测 法 以 a (1-c) 汶 权 数 (0<a<1) (i=0, 1, 2, 3, http://www.hzcourse.com/resource/readBook? 
path=/openresources/teach ebook/uncompressed/16446/OEBPS/Text/...) 对 时 间 序 列 {yt} 进 行 加 权 平 均 的 一 种 预测 方法 。 


y 的 权 数 为 ck，yt-1 的 权 数 为 (1-c) ，yt-2 的 权 数 为 a (1-c) “， 依 此 类 推 ， 其 计算 公式 如 下 : 


^ () q 


其 中 : yr 表示 第 期 突 陸 値 : 表 1 示 第 t+ 1 期 预测 值 ，”““” 分别 表示 第 t-1，t 期 一 次 指数 平滑 值 ; a 表示 平滑 系 数 , 0<a<1。 


各 时 点 平滑 预测 值 y 与 实际 值 x 的 误差 值 et 为 : 


, 
€, = X, — S; — X, — Ji 


则 预测 标准 误差 为 : 


人 


n-l 
2 
> ou =y 
Lm — (12.1) 


7 一 1 


式 (12.1) 中 ，n 为 时 间 序 列 所 含 原始 数据 个 数 。 


12.1.2 ”二 次 指数 平滑 预测 法 


由 一 次 指数 平滑 预测 可 得 出 qa=0.9 的 误差 最 小 ， 因 此 在 此 选用 a=0.9 进 行 相关 分 析 ; 多 次 指数 平滑 预测 法 是 对 一 次 指数 平滑 值 再 作 一 次 指数 平滑 来 进行 预测 的 一 种 方法 ， 但 第 t+ 1 期 预测 值 并 非 第 t 期 的 
多 次 指数 平滑 值 ， 而 是 采用 下 列 计算 公式 进行 预测 : 


SP 一 Gy, T (1 ーー wS 
SHD 2 gs 4 (1— gs? (12:2) 
Far =a, + b T 


a, 25, — SF 


22 i i 
b, =— (8P — Sp?) 


() se 
. 多 表示 第 t 期 的 i 次 指数 平滑 值 ; “表示 第 [期 的 i+1 次 指数 平滑 值 ; 
. 只 表 示 第 t 期 的 实际 值 ; 21+7 表 示 第 tT 期 预测 值 ; 
“表示 平滑 系数 ，x=0.9。 


则 预测 的 标准 误差 为 : 


> O, _ y,)° 
t=1 
7 一 2 


612.3) 


1213 ”三 次 指数 平滑 预测 法 


当时 间 序 列 呈 现 非 线性 趋势 时 ， 可 用 三 次 指数 平滑 预测 法 。 


设 时 间 序列 为 X1，x2，…，xt; 令 
S! — S^ — A d — 
0 790 7905% 
且 取 同一 个 平滑 系数 a， 则 按 下 式 逐 步 计算 : 


S; 2 ax, * (1- a)S; , 
S; 2 a$, * (1— a)S; 
$,— a$, * (1— a)S; 」 


同样 可 按 预 测 均 方差 最 小 原则 选 定 一 个 a 值 ， 一 般 c=0.9。 


下 面 以 选 定 的 较 好 的 一 个 a 值 的 计算 结果 Sos; 和 $, 数列 为 准 ， 对 时 间 序列 未 期 的 数据 按 下 式 计算 模 型 系数 : 


の eU d nr 


a 


- nr 6 —5a)S’—(10—8a)S”+(4—3a)S” 
—a 


7 


2 
a 


c, 2 — — — (8! - 28" 4 $7) 
t 2(— ay 7 7 7 


Yar =a +b T +c T? (12.4) 


式 (12.4) 中 T 为 自 t 时 点 起 向 前 预测 的 时 点 期 数 。 


122 ”指数 平滑 仿真 


指数 平滑 仿真 分 为 一 次 指数 平滑 、 二 次 指数 平滑 以 及 三 次 指数 平滑 。 下 面 进行 具体 介绍 。 


12.2.1 一 次 指数 平滑 


(1) 


=s =ay,+(1-e)S 


B “， 编 写 程序 如 下 : 
clc,clear,close all 青 清理 工作 区 、 关 闭 图 形 窗口 
warning off 2 取消 警告 


feature jit off を 加 速 通道 
%% 导入 数据 


load('database.mat') 
clear highprice lowprice openprice tradingvolumn index4 index5 SX 


ss 一 次 指数 平滑 


yt-closeprice'; S 原始 数据 以 列 向 量 的 方式 存放 
n-length(yt); る 数据 长 度 
alpha=[0.1 0.3 0.9]; を 取 值 


m=length (alpha); z 全数 
yhat (1,1:m)- (yt (1) +yt (2) ) /2; s 取 平 均值 (初始 值 ) 


for i-2:n 


yhat (i, :) -alpha*yt (1-1) + (1-alpha).*yhat (i-1, :); $ 预测 计算 公式 
end 
yhat; % 预测 值 
Error = (repmat (yt, 1 ,m) -yhat); % 预测 误差 
err-sqrt (mean ( (repmat (yt, 1,m) -yhat) .^2) ) を 预测 误差 总 和 
yhat next = alpha*yt (n)+(1-alpha) .*yhat (n, :) % 预测 下 一 时 刻 值 
figure, 
plot (Error (:,1)) 
ylabel('i&X') 
xlabel('t') 


title('Nalpha = 0.1') 


figure, 

plot (Error (:,2)) 
ylabel('iRX') 
xlabel('t') 
title('Nalpha = 0.3") 


figure, 

plot (Error ( : , 3) ) 
ylabel('iRX') 
xlabel('t') 
title('Nalpha = 0.9") 


分 别 取 不 同 的 a 平滑 系数 进行 计算 ,得 到 表 12-1 所 示 的 结果 。 


表 12-1 一 次 指数 平滑 


数 所 a-0.9 


12 127035 | 1348.977 1278741 | -8.39125 
13 126334 | 1341.115 1271.189 | -7.84912 
14 1285.18 | 1333.337 1264.125 | 21.05509 
15 133628 | 1328.521 1283.074 | 53.20551 


17 1361.18 1330.243 30.93739 1309.1 52.07959 1337.971 23.20906 


4 
平滑 | . 平滑 |, 平滑 | < 
时 期 | 09 E E P mam | ë £ 
1 — [146428 | 42175 42.53 
> 137922 | 1426.003 -80.807 
3 1417.67 | 1421.325 30.3693 
4 1315.92 | 1420.959 -98.7131 
5 1344.61 | 1410.455 18.81869 
6 1381.11 | 1403.871 38.38187 
7 1354.88 | 1401.595 -22.3918 
8 123522 | 1396.923 | -161.703 | 1369.988 | -134768 | 1357119 | -121.899 
9 125426 | 1380.753 6.850082 
10 1251.55 | 1368.104 | -116.554 | 1306.968 | -55.4183 | 1253.575 | -2.02499 
T 1281.74 | 1356.448 29.9875 
[1278741 | 
| 1271.189 | 
| 1264125 | 
[1283074 | 
[1330959 | 
[1337971 | 
| 1358.859 | 


1358.859 1.370906 
1360.093 -84.7929 
] 


1283.779 -8.85929 
275.806 -34.0659 


19 1275.3 1336.026 -60.7257 335.376 -60.076 
20 1274.92 1329.953 -55.0331 1317.353 -42.4332 


21 1241.74 1324.45 -82.7098 1304.623 62.8832 


22 1220.39 1316.179 -95.7888 285.758 -65.3683 
23 1212.76 1306.6 -93.84 1266.148 -53.3878 


1245.147 -24.7566 
1222.866 -10.1057 
1 


18 136023 | 1333.336 

1 

1 
25 1261.46 | 1291.891 1240.95 | 20.50994 
26 1245.93 | 1288.848 1259409 | -13.479 
27 1232.68 | 1284.556 1247.278 | -14.5979 
28 1230.74 | 1279.369 1234.14 | -3.39979 
29 1291.19 | 1274.506 1231.08 | 60.11002 


30 1283.49 1276.174 7.315698 1255.884 27.60555 1285.179 -1.689 
31 1303.92 1276.906 27.01413 1264.166 39.75389 1283.659 20.2611 


1 
16 1338.75 1329.297 9.452654 1296.393 42.35656 1330.959 7.790551 
1 2 


24 1243.97 1297.216 -53.246 250.131 -6.16145 213.771 30.19943 


32 1297.59 1279.607 17.98272 1276.092 21.49772 1301.894 -4.30389 
33 1284.45 1281.406 3.044444 1282.542 1.908405 1298.02 -13.5704 


34 1250.27 1281.71 -31.44 1283.114 -32.8441 1285.807 -35.537 


35 1199.06 1278.566 -79.506 1273.261 -74.2009 1253.824 -54.7637 


36 1150.62 1270.615 -119.995 1251.001 -100.381 1204.536 -53.9164 


数 据 a-0.3 a-0.9 
" 平滑 | 、。 平滑 | < ER | < 

wm | 价格 | VR k= | QUA | ë = 
37 1159.34 | 1258.616 -61.5464 | 1156.012 | 3.328363 
38 1096.81 1248.688 | -151.878 | 1202.423 | -105.613 | 1159.007 | -62.1972 
39 1109.66 1170.739 6.630284 
40 — | 1120.84 11.84303 
41 | 1120.15 0.494303 
42 1154.91 1136.105 34.80943 
43 — | 1185.72 34.29094 
44 1200.11 1154.938 17.81909 
45 _ | 1190.82 -7.50809 
46 1197.22 1175.189 5.649191 
47 _ | 1209.85 13.19492 
48 1193.52 3.306217 | 1208.531 | -15.0105 
49 120824 | 1197.066 | 11.17402 | 1191.206 | 17.03435 | 1195.021 | 13.21895 
S0 | 1198.86 -8.05811 
51 [117421 -25.4558 
52 1170.86 -19.3584 | 1176.756 | -5.89558 
53 1141.77 | 1193.348 | -51.5782 | 1184.411 | -42.6409 | 117145 “| -29.6796 
54 _ | 115322 8.482044 


55 1179.42 1184.693 -5.27338 1166.099 13.32096 1152.372 27.0482 
56 1189.76 1184.166 5.593961 1170.095 19.66467 1176.715 13.04482 


注意 : 表 12-1 中 只 显示 了 部 分 数据 ， 具 体 请 参考 程序 。 


从 表 12-1 中 可 知 ， 易 得 到 Sa=0.1=115.2105，Sa=0.3=65.8953，Sa=0.9=45.8548，aQ=0.1，a=0.3 的 误差 比 q=0.9 的 误差 大 ， 所 以 在 此 选择 a=0.9 进 行 预 测 ， 得 到 未 来 一 天 上 证 指数 的 价格 预测 值 将 为 
2924; 然而 ， 对 于 预测 多 个 数据 ， 一 次 指数 平滑 预测 法 预测 误差 大 。 


绘制 相应 的 误差 图 如 图 12-1 ~ 图 12-3 所 示 。 
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图 12-1 x=0.1 预 测 误差 
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图 12-2 ”x=0.3 预 测 误差 
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图 12-3 a-0.93 m] ix Z 


1222 ”二 次 指数 平滑 


由 编写 程序 如 下 

clc,clear,close all る 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 

feature jit off を 加 速 通道 

%% 导入 数据 


load('database.mat') 
clear highprice lowprice openprice tradingvolumn index4 index5 SX 


%% 二 次 指数 平滑 


yt-closeprice'; % 原始 数据 以 列 向 量 的 方式 存放 

n-length(yt); を 数据 长 度 . 

alpha-0.9; % 一 次 指数 平滑 最 优 系 数值 

stl(ü)-yt(); s 初 值 

st2()-yt(); s 初 值 

for i-2:n 
st1 (i)-alpha*yt (i)-* (1-alpha) *st1 (i-1) ; を 一 次 平滑 预测 
st2 (i)-alpha*stl (1) + (1-alpha) *st2 (i-1); % 二 次 平滑 预测 

end 

a-2*stl-st2; $ a 计算 公式 

b-alpha/ (1-alpha)* (st1-st2) ; 名 b 计 算 公 式 

yhat=a+b; $ 预测 值 

yhat-yhat'; s 转 置 

Error2 = yt-yhat; を 误差 

figure, 

plot (Error2) 

ylabel (' 误 差 ') 

xlabel('t') 


取 平滑 系数 a=0.9 进 行 计算 ,得 到 表 12-2 所 示 结 果 。 


表 12-2 二 次 指数 平滑 


= es XN o=0.9 


时 期 平滑 预测 值 误 
| ' = = 
2 1379.22 311.172 68.048 
3 -16.2998 
4 77.07506 
5 -6.35649 
6 -31.5289 
7 14.37678 
9 125426 1248.603 5.657021 
10 1249.433 2.117195 
ll -23.758 
12 4.037322 
13 6.766945 
14 -16.0889 
15 -44.3838 
16 -11.2029 
18 1360.23 1363.535 -3.30536 
19 67.49008 
20 14.68437 
21 28.80977 
22 23.02691 
23 10.63478 
24 -22.995 
25 -19.0095 
28 1232.68 1219.999 12.68083 
28 4.133894 
29 -47.6406 
31 1303.92 1320.513 -16.5934 
32 1.581162 
33 11.05747 
34 29.67108 
35 1151.927 47.13344 
36 1102.226 48.39408 
37 1156.624 2.715881 
38 49.99604 
39 0.317348 
40 -9.50899 
4l -1.46477 
42 -27.999 
43 -30.5807 
d -17.6563 
45 1186.757 4.062656 


46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 


数 据 a=0.9 
时 期 t 平滑 预测 值 ë 差 
-4.03801 
-11.0162 
10.77483 
- 9.34757 
5.379537 
20.98318 
7.069341 
24.50954 
-4.03789 
=22.1279 
-12.9191 


相应 的 误差 图 如 图 12-4 所 示 。 


<“ Figure 1 
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12-4 三 次 指数 平滑 预测 


如 图 12-4 所 示 ， 采 用 二 次 指数 平滑 预测 的 绝对 误差 和 为 37.4430， 比 一 次 指数 平滑 误差 更 小 ， 预 测 结果 显示 ， 未 来 一 日 上 证 指数 收盘 价 为 2936.5。 


122.3 三次 指数 平滑 


， 编 写 程序 如 下 : 


c1c, clear, close all m. 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


warning off s 取消 警告 
feature jit off s 加 速 通道 
%% 导入 数据 


load('database.mat') 
clear highprice lowprice openprice tradingvolumn index4 index5 SX 


%% 三 次 指数 平滑 


yt-closeprice'; & 原始 数据 以 列 向 量 的 方式 存放 

n=length (yt) ; LE. 长 

alpha-0.9; $ 一 次 指数 平滑 最 优 系数 值 
st1 O-mean(yt(1:3)); $ 初始 化 值 

st2 0=st1 0; % 初始 化 值 

st3 0-stl 0; % 初始 化 值 

st1 (1 ) =a1pha*yt (1) + (1-alpha) *st1 0; を 初始 化 

st2 (1)-alpha*st1 (1)+(1-a1pha) *st2 0; を 初始 化 
st3(1)-alpha*st2 (1)* (l-alpha)*st3 0; を 初始 化 


for i-2:n 
st1(i)-alpha*yt (i) + (1-alpha)*stl(i-1); 
st2 (i)-alpha*stl(i)-*(1-alpha)*st2 (i-1); 
st3 (i)-alpha*st2 (1) + (1-alpha) *st3 (i-1); 

end 

stl=[st1]; 


st2=[st2]; 
st3=[st3]; 
a=3*st1-3*st2+st3; 系数 a 
b=0.5*alpha/ (1-alpha)^2* ((6-5*alpha) *st1-2* (5-4*alpha) *st2+ (4-3*alpha) *st3) ; $ 系 数 b 
c-0.5*alpha^2/ (1-alpha)^2* (st1-2*st2+st3) ; も 系数 c 
yhat-atbtc; を 预测 
yhat-yhat'; $ HE 
yhat (end) s 预测 
Error3 = yt-yhat (1:end-1); 
err-sqrt (mean (Error3.^2)) % 预测 误差 总 和 
figure, 
plot (Error3) 
ylabe1 (' 误 差 ') 
xlabel('t') 
取 平滑 系数 a=0.9 进 行 计算 ， 得 到 表 12-3 所 示 结 果 。 
表 12-3 三 次 指数 平滑 


平滑 预测 值 


q=0.9 


1464.28 


= |= VIINI ON [S |+ |ÇG I | — 


一 | 


1538.893 


-74.613 


164.7914 
-96.1535 
176.322 

-91.486 

-67.1541 
62.79937 
198.7783 
-90.7821 
-10.179 

-54.0641 


数 据 a=0.9 


时 期 t no 平滑 预测 值 Rx 
2 32.63994 
3 12.30262 
14 -41.2816 
15 -78.4131 
16 23.11665 
7 -264379 
18 14.67129 
19 148.6996 
20 -37.5938 
21 40.22803 
22 17.45494 
23 -3.77963 
24 -62.0968 
25 -17.9651 
26 39.8671 
27 19.91538 
28 -4.8094 
29 -106.66 
30 39.89062 
31 -26.9774 
32 21.17381 
33 23.41969 
35 1199.06 1130.337 68.72312 
36 51.72895 
38 1096.81 998.0882 98.72182 
39 -513715 
41 1120.15 1113.987 6.16267 
42 -57.2019 
44 1200.11 1203.74 -3.62961 
45 29.71695 
47 1209.85 1229.284 -19.4341 
48 34.54465 
50 1198.86 1178.682 20.17751 
51 39.8064 
52 -6.9182 
53 42.92937 
54 -34.5595 
55 -45.1252 
56 -4.61041 


相应 的 误差 图 妇 


= 


国 12-5 所 示 。 
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12-5 三 次 指数 平滑 预测 


如 图 12-5 所 示 ， 采 用 三 次 指数 平滑 预测 的 绝对 误差 和 为 90.6561， 相 应 的 上 证 指数 收盘 价 为 2928.6。 相 对 比 一 次 指数 平滑 预测 的 误差 为 45.8548， 二 次 指数 平滑 预测 的 误差 为 37.4430， 可 知 二 次 指数 平 
滑 预 测 效果 最 佳 ， 三 次 指数 平滑 预测 易 导 致 过 拟 合 等 现象 ， 导 致 预测 误差 增 大 等 缺陷 。 


第 13 章 “支持 向 量 机 SVM 下 的 涨 跌 预测 


支持 向 量 机 SVM 算法 是 一 个 极其 优越 的 机 器 学 习 算 法 。 支 持 向 量 机 SVM 算法 也 是 一 个 有 监督 的 学 习 算法 。 支 持 向 量 机 SVM 算法 根据 数据 内 存 属性 ， 通 过 构造 超 平面 ， 将 数据 进行 划分 ， 然 后 应 用 于 分 
类 和 回归 模型 。 支 持 向 量 机 SVM 算法 解决 了 传统 算法 不 能 解决 的 非 线性 、 离 散 等 问题 ， 将 复杂 的 大 数据 映射 到 高 维 空间 ， 进 而 实现 问题 的 高 效 求解 ， 广 泛 应 用 于 各 行 各 业 数 据 分 析 中 。 本 章 主要 围绕 支持 向 
量 机 SVM 算法 进行 股票 的 上 证 、 下 跌 分 析 。 


13.1 Logistic 回 月 


考虑 具有 n 个 独立 变量 的 向 量 x= (x1, x2, x3, =, xn) ， 设 条 件 概率 ? (= 11) ~ 为 根据 观测 量 相对 于 某 事件 x 发 生 的 概率 。 


那么 Logistic 回 归 模型 可 表示 为 : 


] 
EMI 


こす 5 キー トキ の 


qoae. x 
六 里 OTE Ros ogisticitift, api 


P(yz0|x)21- P(ys1|x) =1Il>=——=— 


所 以 事件 发 生 与 不 发 生 的 概率 为 


P(y=1|x) = P le 


P(y-0|x) 1-p 


对 其 求 对 数 得 到 


-g(x)20,* 0x, *--- + Ox, 
1 一 忆 


可 以 看 出 Logistic 回 归 都 是 围绕 一 个 Logistic 函 数 来 展开 的 。 


而 假设 函数 就 是 特征 属于 y=1 的 概率 ， 


P(y=1|x)= h(x) 
P(y-20|x)21- h, (x) 


当 要 判别 一 个 新 来 的 特征 属于 哪个 类 时 ， 只 需求 : 若 大 于 0.5 就 是 y=1 的 类 ， 反 之 属于 y=0 类 。 


13.2 ”Regularization 正 则 化 方程 


考虑 方程 的 直接 拟 合 操作 ， 因 变量 y， 自 变量 X， 则 相应 的 系数 求解 为 : 


8-(X'x) X'y (13.1) 


当 上 且 仅 当 XTX 是 可 逆 矩 阵 时 ， 式 (13.1) 成 立 。 


当 XTX 不 可 逆 时 ， 则 应 对 式 (13.1) 进行 变换 ， 具 体 如 下 : 


の =| X'X+4 1 Wy (13.2) 


zb (132) rh, > 0。 


13.3 ”支持 向 量 机 SVM 算法 


支持 向 量 机 SVM 算法 是 一 个 很 好 的 有 监督 算法 ， 广 泛 应 用 于 机 器 学 习 领 域 。 


Logistic 回 归 就 是 要 学 习 得 到 6， 使 得 正 例 的 特征 远大 于 0， 负 例 的 特征 远 小 于 0， 强 调 在 全 部 训练 实例 上 达到 这 个 目标 。 


Logistic 回 归 为 0-1 分 类 ， 即 二 分 类 ， 如 


13-1 所 示 。 


D 


图 13-1 Logistic 回 归 


中 间 那 条 线 是 69Ix=0，logistic 回 归 强 调 所 有 点 尽 可 能 地 远离 中 间 那 条 线 。logistic 回 归 算 法 学 习 出 的 结果 也 就 是 中 间 那 条 线 。 


接 下 来 ,采用 新 的 结果 标签 y=-1、y=1， 蔡 换 logistic 回 归 中 使 用 的 y=0 和 y=1。 同 时 将 9 替换 成 w 和 b。 


OO+ON++ON, 、 W WX eb WN 


n ( 即 wix) 。 


logistic 回 归 算 法 的 9 < 二名 二 05 + 二 0 ， 其 中 认为 X0=1。 现 在 蔡 换 logistic 回 归 算法 中 的 90 为 b，6 为 w， 则 有 ， 


这 样 ,我 们 让 9 x ow +b, geha) 8(0 x) = gw Xx +b)， 也 就 是 说 ， 除 了 y 由 y=0 变 为 y=-1， 只 是 标记 不 同 外 ， 与 logistic 回 归 的 形式 化 表示 没有 区 别 。 


我 们 的 目标 是 寻找 一 个 超 平 面 ， 使 得 高 超 平 面 比较 近 的 点 能 有 更 大 的 间距 。 通 过 将 输入 空间 映射 到 另 一 个 高 维 的 Hilbert 空 间 H 的 变换 mF ( x) < 


将 原 输入 空间 X 的 训练 集 : 


Ted w) u p (| 


转化 为 Hilbert 空 间 H 中 的 新 的 训练 集 : 


1S 1.» (uu G: no oss, ) 


={(p(x), o) (0G), o) (009, a) lola) o). (09, y) 


使 其 在 Hilbert 空 间 H 中 线性 可 分 ，Hilbert 空 间 H 也 称 为 特征 空间 。 然 后 在 空间 H 中 求 得 超 平面 [L””(" | *。””， 这 个 超 平面 可 以 硬性 划分 训练 集 。 


则 简化 后 的 目标 方程 为 : 
。 ly gp 
min :二 | 


n (13.3) 
y? (w^? F b) z] 


j 21,2,3,--.,n 


IÈ (13.3) 是 个 典型 的 二 次 规划 问题 〈 目 标 函 数 是 自 变量 的 二 次 函数 ) 。 


应 用 KKT (Karush-Kuhn-Tucker) 条 件 进行 求解 ， 如 图 13-2 所 示 。 


13-2 SVMF RA 


实 线 是 最 大 间隔 超 平面 ， 假 设 x 号 的 是 正 例 ， 圆 圈 的 是 负 例 。 在 虚线 上 的 点 就 是 函数 间隔 是 1 的 点 ， 那 么 它们 前 面 的 系数 ai > 0， 其 他 点 都 是 ai=0， 这 3 个 点 称 做 支持 向 量 。 


构造 拉 格 朗 日 函数 如 下 : 


L(w,b,a) -了 中 一 Ya El (w^? +b) -1| (13.4) 
1 


化 简 得 到 : 
L(w,b,a)- Xá e E > y? yP)aa, E ) x (13:52 
i=l i j=l 


ED 


这 里 和 将 向 量 内 积 (”) ”表示 为 ) 


"a Y r 
. wtb Yay? | sro= Da (nr 
Hp, E ) s V に 


由 式 (13.3) ~ 式 (13.5) 可 知 ， 可 分 支持 向 量 机 SVM 采用 核 函数 为 : 


KE) = (olx) p(x )) 


不 同 的 核 函 数 有 不 同 的 性 能 ， 其 他 形式 的 核 函 数 如 下 。 


K(xsx;) o (xx; 
K (x,.x,) = | (x ゃ )+1 


S 形 内 核 函数 : 


Kx; x, Jj - tanh| v( x, x, )+c 


傅 里 叶 核 函数 : 


2 


n 


1-m 
K|x.x, = y 
l J 2 
kai 2| m° — 2mcos[ Xy —x;, Jl 


由 此 可 知 ， 支 持 向 量 机 SVM 简化 为 了 一 个 函数 优化 问题 。 目 前 SVM 较 多 的 应 用 于 分 类 、 预 测 领域 中 ， 目 前 主要 应 用 于 二 分 类 问题 中 。 


134 MATLAB 优 化 工具 箱 


通常 应 用 MATLAB 来 解决 最 优化 问题 ， 可 利用 “MATLAB 优 化 工具 箱 ” 来 快速 解决 最 优化 问题 。 下 面具 体 介绍 。 


13 .4.1 线性 规划 问题 
线性 规划 问题 的 标准 形式 为 : 
min f'x x€mR 
subject.to: A* x<b 
Aeq * x-beq 
lb 三 x ub 


其 中 f、x、b、beq、Ib、utb 为 向 量 ，A、Aeq 为 矩阵 。 


其 他 形式 的 线性 规划 问题 都 可 经 过 适当 变换 化 为 此 标准 形式 。 查 看 其 帮助 文件 如 下 : 


>> help linprog 
linprog Linear programming. 
X = linprog(f,A,b) attempts to solve the linear programming problem: 


min f'*x subject to: A*x <= b 
x 
The primal problem in standard form is 
min f'*x such that A*x = b, x >= 0. 
The dual problem is 
max b'*y such that A'*y + s = f, s >= 0. 


例如 ， 求 下 面 的 优化 问题 


min: 
-5x — 4x, — 6x; 


subject.to: 


x, — x, + x, < 20 

3x, + 2x, + Ax, < 42 
3x + 2x, = 30 

x 70,43, 学ん 70 


编写 MATLAB 程 序 如 下 : 


clc,clear,close all 名 
warning off % 取消 警告 
feature jit off s 加 速 通道 

$$ 1inprog 线 性 规划 

f = [-5; -4; -6]; 

A-[1-1 1;73 2 4;3 2 Ùj; 

b = [20; 42; 30]; 

lb = zeros(3,1); 

[x, fval,exitflag, output, lambda] = linprog(f,A,b, [], [], 1b) 
lambda.ineglin 

lambda.lower 


运行 程序 ， 结 果 如 下 : 


Optimization terminated. 


x = 
0.0000 
15.0000 
3.0000 
fval = 
-78.0000 
exitflag = 
1 
output = 
iterations: 6 
algorithm: 'interior-point-legacy' 
cgiterations: 0 
message: 'Optimization terminated." 
constrviolation: 0 
firstorderopt: 5.8704e-10 
lambda = 
ineqlin: [3x1 double] 
eglin: [0x1 double] 
upper: [3x1 double] 
lower: [3x1 double] 
ans = 
0.0000 
1.5000 
0.5000 
ans = 
1.0000 
0.0000 
0.0000 
>> 


134.2 ” 非 线 性 规划 问题 


非 线 性 规划 的 目标 函数 和 约束 条 件 至 少 有 一 个 是 未 知 量 的 非 线性 函数 。 求 最 小 值 的 标准 形式 为 : 


min : £(x) 


x 


subject.to: x, < x< Xx> 


在 MATLAB 中 使 用 fminbnd 函 数 求 其 最 小 值 。 查 看 其 帮助 文件 如 下 : 


help fminbnd 

fminbnd Single-variable bounded nonlinear function minimization. 
X = fminbnd(FUN,x1,x2) attempts to find a local minimizer X of the function 
FUN in the interval x1 < X < x2. FUN is a function handle. FUN accepts 
scalar input X and returns a scalar function value F evaluated at X. 


Examples 
FUN can be an anonymous function: 
X = fminbnd(8(x) sin (x)+3, 2, 5) 


FUN can be a parameterized function. Use an anonymous function to 
capture the problem-dependent parameters: 

f = @(x,c) (x-c).^2; % The parameterized function. 

c = 1.5; % The parameter. 

x fminbnd(8(x) f(x,c),0,1) 


计算 下 面 函数 在 区 间 (O, 1) 内 的 最 小 值 。 


(x) = 


x* +cos2x + xlogx 
200x 


编写 MATLAB 程 序 如 下 : 


clc,clear,close all 
warning off E 
feature jit off 加 速 通道 

$$ fminbng 函 数 -- 有 约束 的 一 元 函数 的 最 小 值 

[x, fval, exitflag, output]-fminbnd(' (x^4+cos (2*x) +x*log (x) ) /2/ (200*x) ', 0,1) 


运行 程序 ， 结 果 如 下 : 


0.7262 
fval = 
5.6425e-04 
exitflag = 
£ 
output = 
iterations: 7 
funcCount 


:8 
algorithm: 'golden section search, parabolic interpolation" 
message: DISP TD 


13.4.3 ”二 次 规划 问题 


二 次 规划 问题 (quadratic programming) 的 标准 形式 为 : 


min —x'Hx-Mf'x 
2 

sub.to A*x€b 
Aeq * x-beq 
lb<x=<ub 


其 中 ，H、A、Aeq 为 矩阵 ，f、b、beq、Ib、ub、x 为 向 量 。 其 他 形式 的 二 次 规划 问题 都 要 转化 为 标准 形式 。 


在 MATLAB 中 使 用 函数 quadprog 求 其 最 小 值 。 查 看 其 帮助 文件 如 下 : 


>> help quadprog 

quadprog Quadratic programming. 
X = quadprog(H,f,A,b) attempts to solve the quadratic programming 
problem: 


min 0.5*x'*H*x + f'*x subject to: A*x <= b 
x 


X = quadprog (H, f, A, b, Aeq, beq, LB, UB, XO, OPTIONS) minimizes with the 
default optimization parameters replaced by values in OPTIONS, an 
argument created with the OPTIMOPTIONS function. See OPTIMOPTIONS for 
details. 


例如 ， 求 解 下 面 二 次 规划 问题 。 


x, Fx, 3 
-x + 2x, < 2 
2y 3 二 了 
x, = 0,x; きり 


gm mi, e iem 


编写 MATLAB 主 函数 程序 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off % 取消 警告 
feature jit of: s 加 速 通道 


$$ Bd 二 次 规划 问题 


H = [1 -1; -1 2] ; 

£ = [-2; -6]; 

A = [1 1; -1 2; 2 1]; 
b = [2; 2; 3]; 


lb = zeros (2,1); 
[x,fval,exitflag,output, lambda] = quadprog(H,f,A,b,[ ],[ 1,15) 


运行 程序 ， 结 果 如 下 : 


1344 ”线性 最 小 二 乘 


有 约束 线性 最 小 二 乘 的 标准 形式 为 ; 
, 上 2 
min =|cx -g 

x 2 


sub.to A ° x<b 
Aeq ° x=beq 
lb<x=<ub 


其 中 ，C、A、Aeq、 为 矩阵 ; d. b. beq, lb. ub. x£[5&, 


在 MATLAB 中 使 用 函数 lsqlin 求 其 最 小 值 。 查 看 MATLAB 帮 助 文件 如 下 : 


>> help lsqlin 
lsqlin Constrained linear least squares. 
X = lsqlin(C,d,A,b) attempts to solve the least-squares problem 


min 0.5*(NORM(C*x-g)).^2 subject to A*x <= b 
x 


where C is m-by-n. 


X = lsqlin(C,d,A,b,Aeq,beq) solves the least-squares 
(with equality constraints) problem: 


min 0.5*(NORM(C*x-d)).^2 subject to 
x A*x <= b and Aeq*x = beq 


具体 的 函数 lsqlin 使 用 如 下 : 


clc, clear, close all 
warning off を 
feature jit off 


mE 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 


$* 函数 1sqlin 带 约束 的 线性 最 小 E 


C = [0.9501 0.7620 
0.2311 0.4564 
0.6068 0.0185 
0.4859 0.8214 
0.8912 0.4447 


Pa 


=[ 0.2027 0.2721 
0.1987 0.1988 
0.6037 0.0152 


= [ 0.0578; 0.3528; 0. 


0.6153 0.4057;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . . 


0.7919 0.9354;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... 
0.9218 0.9169;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... 
0.7382 0.4102;http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . . 
0.1762 0.8936]; 

8131; 0.0098; 0.1388]; 


0.7467 0.4659;http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . . 


0.4450 0.4186:http: //www .hzcourse . Com/resouroe/readBook?path=/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... 
0.9318 0.8462]; 


b =[ 0.5251; 0.2026; 0.6721]; 


lb = -0.1*ones(4,1); 
ub = 2*ones (4,1); 


[x, resnorm, residual, exitflag, output, lambda] = lsglin(C,d,A,b,[ ],[ ],lb, ub) 


运行 程序 ， 结 果 如 下 : 


Optimization terminated. 


x= 


-0.1000 
-0.1000 
0.2152 
0.3502 


resnorm = 


0.1672 


residual = 


0.0455 
0.0764 
-0.3562 
0.1620 
0.0784 


exitflag - 


1 


13.4.5“ 非 线性 曲线 拟 合 


非 线性 曲线 拟 合 是 已 知 输入 向 量 xdata 和 输出 向 量 ydata， 并 且 知 道 输入 与 输出 的 函数 关系 为 ydata=F (x, xdata) ， 但 不 知道 系数 向 量 x， 具 体 如 下 : 


1 


min zl (x.xdata) — ydatall; x (F (x,xdata,) - ydata, ) 


在 MATLAB 中 使 用 函数 lsqcurvefit 求 解 非 线性 曲线 拟 合 。 


例如 ， 求 解 如 下 最 小 二 乘 非 线性 拟 合 问题 。 


已 知 输入 向 量 x 和 输出 向 量 y， 且 长 度 都 是 n， 拟 合 函 数 为 : 


yi) = a(1) : x(i)° + a(2):sin(x(i)) + a(3)* x 


即 目标 函数 为 


拟 合 函数 如 下 : 


PLE »Y 


其 中 : F(a, x) 2 a(D) x? * a(2):sin(x)- a3) x^. 初始 解 向 量 为 x0=[0.1，0.1，0.1]。 


function F = myfun(a,x) 


F = a(1)*x.^2 + a(2) *sim (x) + a(3)*x.^3; 


end 


相应 的 MATLAB 主 函数 程序 如 下 : 


Clc,clear,close all 
warning off を 
feature jit off 


名 Jn 
$$ 函数 1sqcurvefit 非 线性 曲线 拟 合 
xdata = [5.6 7.7 9.3 4.1 8.6 2.8 1.3 7.9 10.0 5.4]; 


ydata = [36.5 130.6 263. 


= [10, 10, 10]; 


1 24.7 208.5 4.9 2.7 163.9 325.0 34.3]; 
初始 估计 值 


[a, resnorm] = lsqcurvefit (@myfun, x0, xdata, ydata) 


yc 7 a(1)*xdata.^2 * a(2)*sin(xdata) * a(3)*xdata.^3; 


figure 

plot (xdata, ydata, 'r*'); 
hold on 

plot (xdata, yc, 'bo') 
legend(' 实 际 值 "，' 拟 合 值 ') 


运行 程序 得 到 结果 如 下 : 


Local minimum possible. 


lsqcurvefit stopped because the final change in the sum of squares relative to 
its initial value is less than the default value of the function tolerance. 


<stopping criteria details» 
a- 
-0.8401 3.4104 0.4139 


resnorm — 


505.1485 


得 到 相应 的 拟 合 图 形 如 图 13-3 所 示 。 
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350 


图 13-3 ”函数 lsqcurvefit 拟 合 结果 
13.4.6_“ 非 线性 最 小 二 乘 
非 线性 最 小 二 乘 的 标准 形式 为 : 
min f(x)= f(x) +f.(zY +.. .+f (x) +L 
x 
Hp, LARS 


Ao 


gU | 则 目标 函数 可 表达 为 : 


ーー 1 NE ; 
mn TF EA 


其 中 ，x 为 向 量 ，F (x) 为 函数 向 量 。 


在 MATLAB 中 使 用 函数 lsqnonlin 求 解 非 线性 最 小 二 乘 。 例 如 ， 求 解 如 下 非 线 性 最 小 二 乘 问题 。 


* ”实际 值 
o mr 


4 


> (k-e^ — e ) 
ん =1 


初始 解 向 量 为 x0=[0.1，0.1]。 


建立 相应 的 非 线性 最 小 二 乘 函数 ， 具 体 如 下 : 


function F = myfun2 (x) 
4; 


k = 1:4; 
F = k-exp (k*x (1) ) -exp (k*x(2)); 
end 


相应 的 MATLAB 主 函数 程序 如 下 : 


clc,clear,close all る 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off 告 

feature jit off ID GE i 

$$ 函数 1sqcurvefit AEZRFEIHZRJU 

x0 = [0.1,0.1]; 

[x,resnorm] = lsqnonlin (@myfun2, x0) 


运行 程序 ， 得 到 结果 如 下 : 


0.3491 -15.1839 
resnorm = 


0.1988 


13.6 ”PSO 优 化 的 SVM 多 分 类 预测 


粒子 群 算法 (PSO) 是 一 种 群 智能 算法 。 与 其 他 基于 群体 的 进化 算法 相 比 ， 相 同 的 是 它们 均 初 始 化 为 一 组 随机 解 ， 通 过 和 迭代 搜寻 最 优 解 。 不 同 的 是 进化 计算 遵循 适 者 生存 原则 ， 而 PSO 模 拟 社会 。 将 每 
个 可 能 产生 的 解 表述 为 群 中 的 一 个 微粒 ， 每 个 微粒 都 具有 自己 的 位 置 向 量 和 速度 向 量 ， 以 及 一 个 由 目标 函数 决定 的 适应 度 。 所 有 微粒 在 搜索 空间 中 以 一 定 速度 飞行 ， 通 过 追随 当前 搜索 到 的 最 优 值 来 寻找 全 
局 最 优 值 。 


设 在 一 个 5 维 的 目标 搜索 空间 中 ， 有 m 个 粒子 组 成 个 群体 ， 其 中 第 | 个 粒子 表示 为 一 个 S 维 的 向 量 忆 一 e) P0 Lm o4) 每 个 粒子 的 位 置 就 是 一 个 潜在 的 解 ， 将 や 代入 


Uis). tussim yit ope Un), 整个 粒子 群 


y- 
MERRIA HEA, RAEAN. BiTA SAREES, 1079 


B, = (Ps Psr Ps) 


迄今 为 止 搜索 到 的 最 优 位 置 为 


PSO 算 法 流程 如 图 13-8 所 示 。 


锣 始 化 种 群 和 速度 


计算 适应 度 值 


找 个 体 极 值 和 群体 极 值 


mH RF EE r 1 ZN 4k Ei Hra 


2 > IN 1 XA i 


计算 适应 度 值 


图 13-8 ”粒子 群 算法 流程 图 


支持 向 量 机 SVM 的 惩罚 因子 C 和 径 向 基 消 数 基 宽 因子 sigma 在 实际 应 用 中 ， 如 果 按 照 默 认 值 设置 ， 进 行 数据 预测 分 析 ， 往 往 导致 预测 精度 不 高 ， 或 者 是 预测 不 收敛 的 情况 ， 因 此 支持 向 量 机 SVM 的 惩罚 
子 C 和 径 向 基 沙 数 基 宽 因子 sigma 的 取 值 大 小 是 个 待 优 化 的 变量 ， 由 广大 学 者 提取 各 种 方法 进行 优化 。 本 章 采用 PSO 算 法 进行 优化 支持 向 量 机 SVM 的 惩罚 因子 C 和 径 向 基 沙 数 基 宽 因 子 sigma。 


PSO 算 法 主要 优化 支持 向 量 机 SVM 的 惩罚 因子 C 和 径 向 基 函 数 基 宽 因 子 sigma，SVM 采 用 MATLAB 自 带 工具 箱 函 数 进行 训练 预测 ， 则 适应 度 函 数 具 体 代 码 如 下 : 


function fitness = fun( pop,train data,train output data ) 
支持 向 量 机 SVM, support vector machine 
采用 优化 的 惩罚 因子 C 和 径 向 基 函 数 基 宽 因子 sigma， 进 行 优化 SVM 


训练 
SVMStruct = fitcsvm(train data,train output data, 'boxconstraint',C,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'KernelFunction','rbf','KernelScale',sigma); 


tic; $ 计时 
C = pop.C; s 惩罚 因子 C 
sigma = pop.sigma; $ 径 向 基 函 数 基 宽 因子 sigma 
label-unique (train output data); を 标签 
numClasses-length (label); を 分 类 标签 数 


result = zeros (length (train data(:,1)),1); & 分 类 标签 预测 结果 
S SVM 向 量 机 训练 模型 
for k=1:numClasses 
train Label-( train output data--label(k)); % 分 类 
models(k) = svmtrain (train data,train Label,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'boxconstraint',C, kernel function','rbf','rbf sigma',sigma); 7 
end 


s 分 类 预测 
for j-1:size(train data,1) 
for k-l:numClasses 
if(svmclassify (models (k),train data(j,:))) 
break; = 
end 
end 
result(j) = label(k); を 训练 样本 预测 结 
end 


fitness - 1./sum(sum(abs(result - train output data))); 


预测 误差 最 小 ， 即 为 适应 度 函 数值 「 


相应 的 主 函数 程序 如 下 : 


clc,clear, close all $ 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗口 
warning off s 取消 警告 

feature jit off $ 加 速 通道 

tic 


global popminl popmax1 popmin2 popmax2 nvar 


在 此 选用 一 组 小 样本 数据 ， 进 行 算法 介绍 。 


加 载 数据 ， 具 体 代 码 如 下 : 


load('data.mat') 


data0 = data; 
for i-l:size(data,2) % 样本 归 一 化 

minmax(i,l) = min(data(:,i)); 

minmax(i,2) = max(data(:,i)); 

data(:,i) = (minmax(i,2)-data(:,i))./(minmax(i,2)-minmax(i,1)); 
end 


构造 训练 预测 数据 ， 具 体 代 码 如 下 : 


train data = data(136:end,1:4); 
train output data = data(136:end,5); 
test data - data(1:135,1:4); 

test output data = data(1:135,5); 


设置 粒子 群 PSO 算 法 参数 ， 具 体 代码 如 下 : 


maxgen = 20; る 最 大 迭代 次 数 
sizepop = 5; gs 种 群 数量 
Vmax = 1; % 类 上 限 
=1; % 粒子 速度 下 限 
cl = 1.4995; % 学 习 因 子 1 
c2 = 1.4995; % 学 コ 因子 2 


设置 变量 坐标 取 值 范围 ， 具 体 代 码 如 下 : 


nvar = 2; を 未知 量 数 量 
popminl = 0.1; popmax1 = 2; る SVM 惩罚 系数 C 
popmin2 = 0.1; popmax2 = 2; る SVM 径 向 基 函 数 基 宽 sigma 


初始 化 粒子 群 PSO 种 群 位 置 ， 具 体 代码 如 下 : 


pop=[]; 
for i=1:sizepop 
popl.C = unifrnd(popminl,popmax1,1,1); % 均匀 分 布 解 
popl.sigma = unifrnd(popmin2,popmax2,1,1); る 均匀 分 布 解 
pop = [pop; popll; 
fitness(i) = fun( pop(i,:),train data,train output data ); 
end 
clear popl 
V = Vmax*rands (sizepop,2); を 初始 化 速度 
[bestfitness,bR]= max (fitness); s 亮度 最 高 的 保留 
zbest = pop (bR, :) ; $ 全局 最 佳 
fitnesszbest = bestfitness; る 全 局 最 佳 适应 度 值 
gbest = pop; を 个 体 最 佳 
fitnessgbest = fitness; $ 个 体 最 佳 适应 度 值 
trace = zbest; $ 记录 最 优 的 种 群 


粒子 群 PSO 算 法 迭代 寻 优 ， 具 体 代 码 如 下 : 


for i-l:maxgen 
disp(['Iteration ' num2str(i)]); 


计算 适应 度 值 


for j=1:sizepop 


V(j,:) = V(j,:) + cl*rand*([gbest(j).C,gbest(j).sigma] - [pop(j).C, pop(j).sigma] ) +http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompres 
c2*rand*([zbest.C,zbest.sigma] - [pop(j).C,pop(j).sigma] ); 

V (3, find (V (j, :) »Vmax) ) -Vmax; 名 ER 

VG, find (V (3, :) «Vmin) )=Vmin; を 下限 

% 种 群 更 新 


E 
op(j).C = pop(3) .C + 0.5*V(,1); 
op 


P 

pop(j).sigma — pop(j).sigma + 0.5*V(j,2); 

る pop 个 体 取 值 范围 约束 

if pop(j).C > popmax1 % 上 限 
pop (3) .C = popmaxl ; 

elseif pop(j).C « popminl を FIR 
pop(j).C = popminl; 

end 

if pop(j).sigma » popmax2 % 上限 
pop(j).sigma = popmax2 ; 

elseif pop(j).sigma « popmin2 $ 下限 
pop(j).sigma = popmin2; 

end 


Fitesa li) = fun( pop(j,:) , train data,train output data ); 
$ 计算 适应 度 值 


% 个 体 最 优 更 新 

if fitness(j) > fitnessgbest(j) 
gbest(j,:) = pop(j, :) 
fitnessgbest(j) = fitness (j); 

end 

% 群体 最 优 更 新 

if fitness(j) > fitnesszbest 
zbest = pop(j,:); 
fitnesszbest - fitness(j); 


end 
end 
trace = [trace,zbest]; $ 记录 最 优 的 种 群 
fitness iter(i) = fitnesszbest; る 最 优 适 应 度 值 
end 
time - toc; 
disp(["CPU 计 算 时 间 = ' num2str(time)]) 


save PSO iter result.mat fitness iter trace zbest gbest train data train output data data0 data test data test output data minmax 


figure(1), 
plot (fitness iter, 'b.-','linewidth',2);grid on; 
xlabel( ' 途 代 次 数 ') : y1abe1 (' 适 应 度 值 ') ;axis tight; 


计算 适应 度 值 ， 具 体 代码 如 下 : 


[fitnessZ,predict result]- fun predict( zbest,train data,train output data,test data ); 


disp([' 最 优 惩罚 因子 C = ' num2str(zbest.C)]) 

disp([' 最 优 径 向 基 函 数 基 宽 sigma = ' num2str(zbest.sigma)]) 
figure(2), 

plot (data0 (136:end,end),'r.-','linewidth',2);axis tight; 
hold on 


归 一 化 ， 具 体 代 码 如 下 : 


plot (minmax (end, 2) - predict result(1])* (minmax (end, 2)-minmax(end,1)),'b.-', 'linewidth',2);axis tight; 


legend ("KHAYA ' , MARR) ;hold off; 


figure (3), 

plot (data0 (1 :135, end) , 'r.-','linewidth',2);axis tight; 

hold on 

s 反 归 一 化 

plot (minmax (end, 2) - predict result{2}* (minmax (end, 2) -minmax(end,1)),'b.-', 'linewidth',2);axis tight; 


legend( CAR a s PRESE 值 ') ;hold off; 


RMSE = sqrt (mean ( (data (1: 135, end) '-predict result(2]).^2)); 

R2 = 1-sum(data(1:135,end)'-predict result(2])./sum(data(1:135,end)-mean (data (1:135, end) ) ) ; 
disp(['RMSE = ' num2str (RMSE) ] ) 

disp(['R2 = ' num2str (R2) ] ) 


均 方 根 误差 rmse 迭 代 画 图 ， 具 体 代码 如 下 : 


for i-l:length (trace) 
gbest iter - trace(:,i); 
[fitnessZ,predict result]- fun predict( gbest iter,train a teate | output data,test data ); 
RMSEiter = sqrt (mean ( (data (1:135, end) '-predict result(2)).^2)); 
RMSE iter(i) = RMSEiter; 
end 
figure(4), 
plot (RMSE iter, 'b.-','linewidth',2);grid on; 
xlabel (" 透 代 次 数 ") ; yLabel ('RMSE 值 ') ;axis tight; 


相应 的 fun_predict 预 测 函 数 具 体 代码 如 下 : 


function [fitness,predict result]- fun predict( pop,train data,train output data,test data ) 
支持 向 量 机 SVM， support vector machine P 
采用 优化 的 惩罚 因子 C 和 径 向 基 函 数 基 宽 因子 sigma， 进 行 优化 SVM 


训练 
SVMStruct = fitcsvm(train data,train output data, 'boxconstraint',C,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/. . 
'KernelFunction', 'rbf', 'KernelScale', sigma); 


tic; も 计时 
C = pop.C; を 惩罚 因子 C 
る 径 疝 基 函 数 基 宽 因子 sigma 


sigma = pop.sigma; 


label-unique (train output data); る - 
numClasses-length (label); % 分 类 标签 数 
result = zeros (length (train data(:,1)),1); を 4 


S SVM 向 量 机 训练 模型 
for k=1:numClasses 
train Label-( train output data--label (k) ) ; % 分 类 
models(k) = svmtrain(train data,train Label, http: //www .hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/.. 
'"boxconstraint',C, 'kernel . function','rbf', 'rbf sigma',sigma); 
end 


$ 分 类 预测 
for j-1:size(train data,1) 
for k-l:numClasses 
if (svmclassify (models (k) , train data(j,:))) 
break; 
end 
end 
result(j) = label(k); る 训练 样本 预测 结果 
end 


fitness = 1./sum(sum(abs (result - train output data))); 


% 预测 误差 最 小 ， 即 为 适应 度 函 数值 
$ toc $ 计时 结束 
for j=1:size (test data, 1) 


for k-l:numClasses 
if (svmclassify (models (k),test data(j,:))) 


break; 
end 
end 
result2(j) = label(k); る 测试 样本 预测 结果 
end 
predict result(1) = result; る 训练 样本 预测 结果 
predict result{2} = result2; る 测试 样本 预测 结果 


运行 程序 ， 得 到 结果 如 下 : 


Iteration 
Iteration 
Iteration 
Iteration 
Iteration 
Iteration 
Iteration 
Iteration 
Iteration 
Iteration 10 

Iteration 11 

Iteration 12 

Iteration 13 

Iteration 14 

Iteration 15 

Iteration 16 

Iteration 17 

Iteration 18 

Iteration 19 

Iteration 20 

CPU 计算 时 间 = 280.3234 

最 优 惩罚 因子 C = 1.241 

最 优 径 向 基 函 数 基 宽 sigma = 0.11919 
RMSE = 0.020001 


加 oamwm 必 wh 


得 到 相应 的 图 形 如 图 13-9 ~ 图 13-12 所 示 。 


适应 度 值 
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图 13-10 训练 样本 预测 值 
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13-12. RMSE 值 迭代 曲线 


如 图 13-9~ 图 13-12 所 示 ， 采 用 粒子 群 算法 PSO 优 化 的 支持 向 量 机 SVM 算法 具有 较 好 的 性 能 。 由 于 适应 度 函 数 选 取 的 是 误差 的 倒数 ， 因 此 适应 度 值 曲线 是 一 个 递增 的 曲线 ， 如 图 13-9 所 示 ， 采 用 粒子 群 
算法 PSO 优 化 的 支持 向 量 机 SVM 算法 性 能 是 提升 的 。 


第 14 章 贝 叶 斯 (Bayes) 网 络 多 指标 预测 


贝 叶 斯 预测 不 同 于 传统 预测 方法 ， 因 为 传统 预测 方法 利用 的 只 是 模型 信息 和 样本 数据 信息 ， 而 贝 叶 斯 预测 在 预测 过 程 中 不 仅 利用 模型 信息 和 样本 数据 信息 ， 还 利用 了 先 验 概率 信息 ， 即 决策 者 的 主观 意 
识 。 因 此 对 贝 叶 斯 (Bayes) 预测 方法 的 研究 具有 重要 的 意义 。 本 章 主要 借助 于 贝 叶 斯 网 络 进行 上 证 指数 的 涨 跌 预测 分 析 。 


14.1 ” 贝 叶 斯 统计 方法 


1963 年 ， 贝 叶 斯 (Bayes) 提出 了 贝 叶 斯 公式 : 


p418)-_P (B14)P(4) 


DP(B14)P(4) 


式 中 ，A1，A2，.…，An 是 两 两 互 斥 的 事件 , EP (A) >0, i=1, 2, 3, ..., n, 
的 概率 。 


(14.1) 


Jin} 


件 B 的 发 生 总 是 与 A1，Az2，…，An 之 一 同时 发 生 。 贝 叶 斯 公式 是 在 观察 到 事件 B 已 经 发 生 的 条 件 下 ， 寻 找 导致 B 发 生 


在 式 (14.1) 中 ， 可 以 直观 地 将 Ai 淖 作 是 导致 随机 事件 B 发 生 的 各 种 可 能 原因 ， 则 P_ (A) 可 以 理解 为 随机 事件 A 发 生 的 先 验 概率 (Priori Probability) 。 如 果 知 道 随机 事件 B 发 生 的 概率 ， 则 它 可 用 于 对 
事件 Ai 发 生 的 概率 进行 重新 估计 。 事 件 P_ (AlB) 是 在 “B 发 生 ” 后 对 于 事件 Ai 发 生 概率 的 重新 估计 ， 称 为 随机 事件 A 的 后 验 概率 (Posteriori Probability) 。 


Bayes 统 计 方法 的 核心 观点 是 : 在 关于 事件 的 任何 统计 推断 问题 中 ， 除 了 使 用 样本 信息 所 提供 的 信息 数据 外 ， 还 必须 对 事件 预先 规定 一 个 先 验 概 率 分 布 ， 它 可 以 是 预测 者 根据 自己 的 经 验 来 确定 ， 也 可 
以 是 预测 者 根据 自己 的 主观 认识 来 确定 。 


在 进行 统计 推断 时 ， 先 验 概率 分 布 是 不 可 或 缺 的 一 个 重要 要 素 。 


Bayes 学 派 把 先 验 概率 分 布 解释 为 : 在 得 到 样本 信息 前 就 有 的 关于 事件 的 概率 分 布 的 主观 认识 。 先 验 概率 分 布 不 必 有 客观 依据 ， 它 可 以 部 分 或 者 全 部 地 基于 主观 认识 。 


例如 ， 某 人 怀疑 自己 得 了 一 种 疾病 A， 在 就 诊 时 ， 医 生 对 其 化 验 了 如 血 常规 等 指标 ， 其 结果 信息 构成 样本 X。 


按 传统 统计 学 观点 ， 医 生 在 诊断 该 人 是 否 得 病 时 ， 只 使 用 统计 模型 及 样本 X 提 供 的 信息 即 可 。 


而 按 贝 叶 斯 学 派 的 观点 ， 在 统计 推断 之 前 ， 必 须 对 事件 的 发 生 预先 设 定 一 个 0 到 1 之 间 的 先 验 概率 P (A) (认为 该 人 得 病 的 概率 ) ， 才 能 对 该 人 是 否 得 病 进行 推断 。 如 规定 P (A) =0.01 ( 即 认为 自己 得 


pja- EELA ()- 
病 的 概率 为 0.01) ， 根 据 样本 信息 X 的 分 布 P》(X) 、 事 件 A 的 先 验 概率 分 布 P(A) 、 贝 叶 斯 公式 77 o0, ggg 120 086 


后 ， 认 识 发 生 了 变化 ， 该 人 得 病 的 概率 提高 到 了 0.86。 这 一 改变 的 发 现 既 与 样本 信息 X 有 关 ， 也 离 不 开 先 验 概率 分 布 P (A) . 


， 即 在 得 到 样本 信息 X 前 ， 该 人 得 病 的 概率 为 0.01， 在 得 到 样本 信息 X 


Bayes 学 派 认为 ， 后 验 概率 分 布 (Posteriori Probability Distribution) 综合 了 样本 信息 X 及 先 验 概率 分 布 P (A) ， 因 此 抽样 的 全 部 目的 是 完成 由 先 验 概率 分 布 (Priori Probability Distribution) 到 后 
验 概率 分 布 的 转换 ， 从 而 完成 对 事件 A 认识 的 改变 。 


此 过 程 可 简化 为 如 图 14-1 所 示 。 


P(4 人 1) 先 验 概率 分 布 | ”|P(X|4) 样 本 总 体 分 布 


贝 叶 斯 定理 


P(4|1, 了) 后 验 概率 分 布 


1434 贝 叶 斯 统计 方法 


如 图 14-1 所 示 ，Bayes 统 计 方法 在 统计 过 程 中 用 到 了 先 验 概率 分 布 P (All0) ， 即 决策 者 的 主观 因素 。 可 以 说 在 统计 过 程 中 ， 是 否 使 用 先 验 概率 分 布 是 区 分 贝 叶 斯 统计 方法 和 传统 统计 方法 的 标志 。 


Bayes 统 计 方 法 可 总 结 为 : 


(1) 将 未 知 参数 看 成 随机 变量 (或 者 随机 向 量 ) ， 记 为 E。 


mr 


(| 


当 E 已 知 时 ， 样 本 x1，X2，X3，.…，xh 的 联合 分 布 密度 7 ( 改 , 轧 , 为 ，…, 芒 ;于 看 成 是 x1，x2，X3，.…，xn 对 的 条 件 密度 ， 记 为 了 prr ILI 


(2) BZ (S ) 表 示 E 的 先 验 分 布 ， 一 般 根据 以 往 对 参数 E 知 识 来 确定 先 验 分 布 (经 常用 于 表示 先 验 知识 ) ， 如 果 没有 关于 先 验 参数 5 的 先 验 知识 ，(4) 应 采用 在 5 取信 范围 内 的 均匀 分 布 (也 被 称 为 贝 叶 
斯 假设 ) ， 这 也 是 贝 叶 斯 统计 方法 中 最 容易 引起 争议 的 一 步 ， 


(i 


(3) 利用 先 验 分 布 7($) 和 条 件 分 布 密 度 了 


入 19) 可 以 求 出 x1， 冯 ， 冯 ，.…，xn 与 5 的 联合 分 布 以 及 样本 数据 x1，xz，x3，.…，xn 的 分 布 ， 于 是 就 可 以 利用 二 者 求 得 EXjx1，x2,，x3， 


.，xr 的 条 件 分 布 密度 ， 即 利用 Bayes 公 式 求 得 后 验 分 布 密度 人 (9 ent Jes 


(4) 利用 后 验 分 布 密度 已 (5 Posen 做 出 对 9 推 断 (估计 或 者 对 做 检验) ， 则 


(| 
PX rm) 


Posse) |z (p(n LE) dé 


1422 ” 贝 叶 斯 预测 方法 


贝 叶 斯 (Bayes) 预测 是 一 种 以 贝 叶 斯 统计 方法 为 基础 ， 以 贝 叶 斯 定理 为 理论 的 时 间 序 列 预测 算法 ， 其 鲁 棒 性 、 泛 化 能 力 得 到 了 广大 学 者 的 认可 。 


贝 叶 斯 (Bayes) 预测 在 预测 过 程 中 ， 首 先 对 样本 总 体 分 布 进行 预测 ， 较 常用 的 就 是 高 斯 分 布 了 ， 即 预先 规定 一 个 先 验 概率 分 布 ， 此 离散 的 概率 分 布 数值 可 以 由 专家 给 出 ， 也 可 以 根据 前 期 测量 数据 给 
出 ， 归 根 结 底 就 是 决策 者 自己 的 判断 准则 。 给 定好 先 验 概率 分 布 后 ， 即 可 由 贝 叶 斯 (Bayes) 预测 方法 给 出 相对 应 的 后 验 概 率 分 布 信息 ， 进 行 目标 的 预测 分 析 。 


贝 叶 斯 (Bayes) 预测 模型 有 很 多 ， 涵 盖 了 传统 的 预测 模型 ， 如 线性 回归 、 指 数 平滑 等 ， 现 较 多 的 贝 叶 斯 (Bayes) 预测 模型 有 mntfit 拟 合 、gaussianFit 拟 合 、mvmnFit 拟 合 、kernelFit 拟 合 模型 ， 其 具 
体 核 函 数 模型 在 Bayes 工 具 箱 中 可 以 查看 。 


贝 叶 斯 预测 方法 与 传统 统计 预测 方法 的 区 别 如 下 。 


“ 传统 统计 预测 方法 根据 过 去 的 数据 信息 ， 建 立 统计 预测 模型 ， 得 到 预测 结果 ， 很 难 利用 先 验 信息 之 间 的 耦合 性 进行 事物 的 判断 ， 因 此 传统 的 预测 方法 泛 化 能 力 较 差 。 


・ 贝 叶 斯 (Bayes) 预测 方法 不 仅仅 利用 过 去 的 数据 信息 ， 还 利用 了 用 户 自己 的 主观 意识 ， 即 先 验 知识 。 贝 叶 斯 统计 预测 利用 Bayes 公 式 将 人 的 主观 认识 与 先 验 信息 综 得 到 后 验 信息 ， 所 以 后 验 信息 不 


仅仅 包含 先 验 信息 ， 还 体现 了 人 的 主观 认识 ， 因 此 贝 叶 斯 预测 能 够 处 理 异 常情 况 的 发 生 。 


143 ” 贝 叶 斯 网 络 的 数据 预测 


贝 叶 斯 网 络 作为 机 器 学 习 的 一 个 分 支 ， 在 处 理 不 确定 问题 以 及 复杂 系统 中 多 因素 间 的 相互 依赖 问题 时 ， 具 有 较 强 的 鲁 棒 性 、 泛 化 能 力 以 及 学 习 能 


本 节 将 使 用 MATLAB 自 带 的 bayes 函 数 实 现 上 证 指数 的 涨 跌 预 测 。 


(1) 首先 加 载 数据 ， 按 照 每 10 天 提取 一 个 序列 ， 并 由 第 11 天 的 数据 得 到 相应 的 涨幅 ， 具 体 的 MATLAB 程 序 如 下 : 


clc,clear,close all 清 清理 工作 区 、 关 闭 图 形 窗口 
warning off E 取消 警告 

feature jit off 速 通道 
load('database.mat'); 0 载 数 据 

data = closeprice'; > K EAGER 

L = length (data); 

day = 10; % 10 天 一 


k-1; 


提取 每 隔 10 天 的 上 证 指数 数据 ， 具 体 程序 如 下 : 


% 构建 数据 集 
s 假设 10 天 一 个 回溯 
% m x n 行 数据 集 ，m 为 选取 的 数据 量 ，n 为 数据 特征 数 


function [TrainingSet,GroupTrain] = extract train (data, day, np) 


% 输入 

% data: 输入 的 原始 股票 数据 

% day: 每 隔 da nis AERE 

に np: 当 前 数 据 点 

% 输出 : 

% TrainingSet: 训练 数据 集 

& GroupTrain: 训练 数据 对 应 的 类 别 

datal = data(1:np,:); b 提取 当前 np 点 以 及 np 点 之 前 的 所 有 的 数据 ，np+1 为 计算 np 点 的 上 涨 或 下 跌 


$ 提取 50 组 训练 集 
k=1; 


for i=length (data1 ) -6*day : length (data1) -day 


TrainingSet (k, : ) =data1 (i:i+day-1, :)'; s FU 
if data1 (i+day-1, :) <data1 (1 +day) 第 二天 上 
GroupTrain (k, 1 ) =2: 名 上 涨 为 2 
else 
GroupTrain (k,1)=1; を 下 跌 为 1 
end 
k=k+1; 


(2) 由 此 确定 相应 的 训练 样本 数据 集 如 下 : 


[training,group] = extract train(data, day, np) ; & 提取 np 点 之 前 的 数据 
test = data (np-day41:np)'; 


(3) 创建 相应 的 贝 叶 斯 分 类 器 ， 具 体 程序 如 下 : 


function obj = . fit (training, group, varargin) 
if -isnumeric (training) E Hoo e 型 检测 
error (message( (0 输入 数据 为 数组 类 型 r) t 


en 


it ~isreal (training) $ training 数 据 是 否 为 实数 
error (message (' 输 入 数据 应 该 为 实数 ') 

end 

obj = ysw NaiveBayes; $ bayes 类 ，ysw_NaiveBayes 为 对 应 的 脚本 文件 


[gindex,obj.ClassNames, obj.ClassLevels] = grp2idx (group); 


obj.ClassNames = 


多 ra 

% obj.ClassLevels = 

多 1 

EI 2 

n = size(training,1); 名 行 

ifn 0 ||size(gindex,1) == 0 $ gindex 维 数 检测 
error (message (' 输 入 类 group 有 问题 ! ! ! ')); 

end 

if n ~= size(gindex,1); . る n 不 等 子 size (gindex, 1) 
error (message (' 窍 阵 维度 不 匹配 ! ") ) : 

end 

nans = isnan(gindex); を 是 否 为 NaN 

if any (nans) "^ 
training(nans,:) = []; & 如 果 存 在 NaN， 删 除 该 行 
gindex(nans) = []; $ 如 果 存 在 NaN， 删 除 该 行 

end 


obj.NClasses = length (obj .C1assNames) ; & 多 少 类 
obj .ClassSize = hist(gindex,1: obj.NClasses); 

& 每 一 类 的 个 数 ，hist 为 直方 图 统计 函数 
obj.CIsNonEmpty = (obj.ClassSize > 0)'; 
obj.NonEmptyClasses -find(obj.ClassSize»0); 


obj.LUsedClasses = length (obj.NonEmptyClasses); 


[n, obj.NDims]- size(training); $ 检测 输入 的 变量 是 否 为 空 
$n- 
る 51 
$ obj.NDims - 
る 10 


检验 是 否 有 输入 错误 ， 包 括 输入 的 格式 、 和 矩阵 类 型 、 默 认 值 等 ， 具 体 程序 如 下 : 


pnames = ('distribution' 'prior' 'kswidth' 'kssupport' 'kstype']; 

dflts = ('normal' 'empirical' [] [1 ; 

[obj.Dist,prior, kernelWidth,obj.KernelSupport, obj.KernelType] http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
= internal.stats.parseArgs (pnames, dflts, varargin(:]); 


ob] .Prior = obj.ClassSize(:)' / sum(obj.ClassSize); 
obj.Prior = 
0.5098 0.4902 


对 prior 数 值 进行 归 一 化 操作 ， 具 体 程序 如 下 : 


obj .Prior (obj .ClassSize==0) = 0; 
obj.Prior = obj.Prior(:)' / sum(obj.Prior); $ normalize the row vector 
obj .Dist = cellstr(obj.Dist); も 将 字符 串 类 型 转化 为 元 胞 体 cell 结 构 
if numel (obj .Dist) ~= 1$ -isscalar(obj.Dist) 
try 
u = unique (0bj.Dist); 
end 
$if all the distribution are same, make it a scalar cell 
if numel(u) == 1 gs -strncmpi (u, 'mn',length (u(1])) 
obj .Dist = u; 
end 
end 


核 函 数 选择 ， 具 体 程序 如 下 : 


distNames = ('normal','mvmn','kernel','mn'); 
if numel(obj.Dist) == 1 $isscalar(obj.Dist) 
$i = strmatch (lower (0bj.Dist),distNames); 
i = find(strnompi (obj.Dist[1),distNames, length (0bj.Dist(1)))); 
if isempty (i) 
error (message (' 未 输入 核 函数 ',obj Dist (1))); 
elseif numel(i) >1 
error (message (' 核 函数 输入 超过 1 个 ', obj .Dist(1))); 


elseif i == 1 
obj .GaussianFS = true(1,obj.NDims); $ 获取 normal 核 函数 
elseif i ==2 $'mvmn' 
obj .MVMNES = true (1, obj .NDims) ; S 获取 mvmn 核 函数 
elseif i = $'kernel' 
obj.KernelFS = true (1, obj .NDims) ; る 获取 kernel 核 函数 
end $ 
obj .Dist = distNames (i); 
end 
nans = all(isnan(training),2); る 移 除 存在 NaN 的 行 
if any (nans) 
training(nans,:) = []; s 置 空 ， 删 除 该 行 
gindex(nans) = []: s 置 空 ， 删 除 该 行 
end 


for k = obj.NonEmptyClasses 
groupI = (gindex -- k); 


nanCols = all (isnan (training (groupT, :)),1); 
end 
分 析 处 理 核 函 数 的 参数 如 下 : 


obj .Params = cell(obj.NClasses, obj.NDims); 


采样 核 函 数 进 行 数据 的 拟 合 操作 ， 具 体 程序 如 下 : 


if isscalar(obj.Dist) 
switch obj.Dist(:) 
case 'mn' 


obj = mnfit(obj,training, gindex); $ mnfit 拟 合 函数 
case 'normal' 

obj = gaussianFit(obj, training, gindex); % gaussianFit 拟 合 函数 
case 'mvmn' 

obj = mvmnFit (obj, training,gindex); 名 mvmnFit 拟 合 函数 


case 'kernel' 
obj = kernelFit(obj,training, gindex); 名 kernelFit 拟 合 函 数 
end 
end 


end $fit 


进行 高 斯 分 布 函数 的 参数 估计 ， 具 体 程序 如 下 : 


function obj = gaussianFit(obj, training, 91dx) 


for i = obj.NonEmptyClasses 
groupI - (gidx -- i); 


gsize = sum(-isnan (training (groupI, obj.GaussianFS)),1); 


mu = nanmean (training (groupI, obj.GaussianFS)); % 均值 
sigma = nanstd (training (groupI, obj.GaussianFS)); $ 方差 
obj . Params (i, obj .Gauss1anFS) = mat2ce11 ( [mu; sigma] , 2, ones (1, Sum (obj. GaussianFS))); 


end 
end $function gaussianFit 


mvmnFit 函 数 具体 代码 如 下 : 


Sestimate the parameters using multivariate multinomial 
function obj = mvmnFit(obj, training, gidx) 


mvmnfsIdx = find(obj.MVMNFS); 

d = sum(obj.MVMNFS) ; 

mymnParams = cell(obj.NClasses,d); 
obj .UniqVal = ce11 (1,9) : 


for j = 1: d 
data = training (:,mvmnfsIdx (j)); 
gidx2 = gidx; 


nans = isnan (data) ; 


if any (nans) を 是 否 存在 NaN 
data (nans) -[]; o 删除 存在 NaN 的 行 
gidx2 (nans) =[] を 删除 存在 NaN 的 行 


end 
obj.UniqVal(j) = unique (data); 
for i = obj.NonEmptyClasses 
groupI - (gidx2 -- i); 
p = histc (data (groupI),obj.UniqVal(j]); 
$Add one count for each discrete value of the training data to avoid zero probability 
p= (p+1)/ (size (data (groupT) , 1) *length(obj.UniqVal(1,3])); 


mvmnParams(i,j) = (p(:)); 
end 
end 
obj .Params (: ,obj .MVMNFS) = mvmnParams; 
end 


Multinomial fit 函 数 具体 代码 如 下 : 


$ perform Multinomial fit 
function obj = mnfit(obj,training, gidx) 
d 7 size(training,2); 
for k = obj.NonEmptyClasses 
groupI = (gidx == k); 


pw = sum(training (9roupT, : ) , 1) 

pw = (Ppw+1) / (sum (pw) +d) ; 

$ Add one count for each feature to avoid zero probability 

obj .Params (k, :)= num2cell (pw) ;% mat2ce11 (pw, 1, ones (1, 9) ) ; 
end 


end 


贝 叶 斯 网 络 结构 类 矩阵 设置 如 下 : 


Classdef ysw NaiveBayes 


properties (GetAccess = 'public', Sethccess = 'public') $ 'private' 为 只 读 ，'public' 读 写 


NClasses = 0; % 分 类 数量 

ClassNames = (); & 分 类 的 类 别名 称 

ClassSize-[]; $ 每 一 类 的 大 小 

NonEmptyClasses = []; & JERKA ES 8 EBE 
LUsedClasses - 0; を 非 空 类 数据 的 数量 

NDims = 0; S 分 类 的 维 数 

ClassLevels =(); % 分 类 的 尺度 

CIsNonEmpty -[]; s 非 空 类 数据 的 标志 量 

Params = []; & 待 估计 的 参数 

Prior = []; % 分 类 类 别 的 先 验 知识 

Dist-''; S 分 布 函数 名 称 

GaussianFS-[]; s 高 斯 模型 标志 量 

MVMNFS =[]: $ (multivariate multinomial) mvmn 多 元 回归 模型 标志 量 
KernelFS -[]; る 核 函数 模型 标志 量 

KernelWidth = []; S 核 函数 宽度 

KernelSupport = 'unbounded'; % 核 函数 适应 的 特征 数值 
KernelType = 'normal'; % 核 函数 的 类 型 

UniqVal -(); $ (multivariate multionmial) mvmn 模 型 的 可 能 分 类 尺度 


end 
end 


由 贝 叶 斯 网 络 计算 相应 的 条 件 概率 密度 函数 ， 具 体 程序 如 下 : 


function logCondPDF-getlogCondPDF (obj, test, handleNaNs) 
$ Computer the log of class conditional PDF 


nTest- size(test,1); 

る 1og of conditional class density (P(x i| theta)) 
% 初始 化 NaN 

logCondPDF = NaN(nTest, obj.NClasses); 


$ 'normal', 'kernel' or 'mvmn' る 核 函数 
ntestValid = size(test,1); 


for k = obj.NonEmptyClasses 
logPdf =zeros (ntestValid,1); 
if any(obj.GaussianFS) 
param k-cell2mat (obj .Params (k,obj.GaussianFS)); 
templogPdf = bsxfun(G8plus, -0.5* (bsxfun (8rdivide,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
bsxfun (minus, test (:,0bj.GaussianFS),param k(1,:)),param k (2,:))) .^2,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompresse 
-log(param k(2,:))) -0.5 *log(2*pi); 
if strcmp (handleNaNs, 'off') 
logPdf = logPdf + sum(templogPdf,2); 
else 
1ogPdf = logPdf + nansum(templogPdf,2); 
end 
end% 


logCondPDF (:,k)= logPdf; 


end loop for k 
end 


获取 贝 叶 斯 网 络 预测 的 类 标签 ， 具 体 函 数 如 下 : 


function [cidx, postP, logPdf] = getClassIdx(obj,log condPdf) 
S$Compute class index, posterior probability and log of PDf 


log condPdf -bsxfun(Gplus,log condPdf, log(obj.Prior)); る 相 减 的 函数 
log condPdf = 


de oe 


-52.1946 -50.1058 
[maxll, cidx] = max(log condPdf, [],2); s 最 大 值 
$ set cidx to NaN if it is outlier 


cidx (max11 == -inf |isnan(maxll)) = NaN; を 为 负 无 穷 时 ， 置 NaN 
% cidx = 
る 1 

minus maxll to avoid underflow 

if nargout >= 2 % 输出 大 于 2 个 


postP = exp(bsxfun(8minus, log condPdf, maxll)); 指数 函数 

を density(1) is \sum j Valpha j P(x i| \theta j)/ exp (max11 (i)) 
% 密度 函数 公式 

density = nansum(postP,2); $ignore the empty classes 

$normalize posteriors 


postP = bsxfun(8rdivide, postP, density); る 和 矩阵 减法 函数 
if nargout >= 3 
logPdf = log(density) + maxll; る 输出 大 于 3 时 ， 计 算 logPDF 值 
end 
end 


end $function getClassIdx 


由 此 可 得 相应 的 基于 贝 叶 斯 网 络 的 上 证 指数 涨 跌 预 测 动态 显示 的 函数 程序 ， 具 体 程序 如 下 : 


clc, clear, close all 
warning off 


工作 区 、 关 闭 图 形 窗 口 


feature jit off wi 
load('database.mat'); s 加 载 数据 
data = closeprice'; $ 以 收盘 价 作为 分 析 工 具 
L = length (data); を 数据 长 度 
day = 10; % 10 天 为 一 个 step， 进 而 预测 第 11 天 的 状态 
k=1; 
for np = L-600 :1:L-550 s 预测 当前 点 
[training,group] = extract train(data,day,np); $ 提取 np 点 之 前 的 数据 


test = data (np-day41:np)'; 
$ 创建 朴素 贝 叶 斯 分 类 器 对 象 ObjBayes 


ObjBayes = NaiveBayes fit (training, group, 'Distribution', 'normal'); 


5 利用 所 创建 的 朴素 贝 叶 斯 分 类 器 对 象 ObjBayes， 对 训练 样本 进行 判别 
results = ObjBayes predict (ObjBayes, test) ; 


RJL 
disp(' 当 前 状态 涨幅 Bayes 涨 幅 :') 
disp( [ (data (np+1 ) -data (np) >0) +1, results]) 
accuracy (k, : ) =[ (data (np+1 ) -data (np) >0) +1, results]; 
k=k+1; 
end 


计算 相应 的 准确 率 ， 具 体 程序 如 下 : 


equ = find(accuracy(:,1)--accuracy (:,2)); $ 相等 就 是 正 
nequ = find (accuracy ( : , 1 ) ^-accuracy(:,2)); % 不 相等 
acc = length (equ) /1ength (accuracy) ; 

disp (['SVM 涨 幅 了 预测 准确 率 : ',num2str (acc) ] ) 


运行 程序 ， 得 到 相应 的 预测 结果 如 下 : 


当前 状态 涨幅 Bayes 涨 幅 : 
2 


1 
当前 状态 涨幅 Bayes 涨 幅 : 
2 2 
当前 状态 涨幅 Bayes 涨 幅 : 
2 2 


当前 状态 涨幅 Bayes 涨 幅 : 
1 2 


当前 状态 涨幅 Bayes 涨 幅 : 
2 2 


当前 状态 涨幅 Bayes 涨 幅 : 
1 


2 
当前 状态 涨幅 Bayes 涨 幅 : 
1 2 
当前 状态 涨幅 Bayes 涨 幅 : 
1 1 
当前 状态 涨幅 Bayes 涨 幅 : 
1 1 


当前 状态 涨幅 Bayes 涨 幅 : 
2 1 


当前 状态 涨幅 Bayes 涨 幅 : 
2 2 


当前 状态 涨幅 Bayes 涨 幅 : 
2 


2 
当前 状态 涨幅 Bayes 涨 幅 : 
2 2 
当前 状态 涨幅 Bayes 涨 幅 : 
1 2 
当前 状态 涨幅 Bayes 涨 幅 : 
T 2 
当前 状态 涨幅 Bayes 涨 幅 : 
2 2 
当前 状态 涨幅 Bayes 涨 幅 : 
Ji 2 


Bayes 涨 幅 预 测 准确 率 : — 0.52941 


在 MATLAB 命 令 行 窗口 将 得 到 一 系列 的 动态 预测 值 ， 并 最 终 得 到 相应 的 预测 准确 率 。 由 结果 可 知 ， 预 测 准确 率 为 52.9419。 


绘制 图 像 显 示 相应 的 预测 结果 ， 具 体 程序 如 下 : 


$ figure(1) 

$ plot( data(L-760:np) ) 

figure (2) 

plot (accuracy (:,1), 'b.-', 'markersize',15) $ 实际 值 
hold on 


plot (accuracy (:,2), 'ro-', 'markersize',6) % 预测 值 
xlabe1 (' WHE ') : 

ylabel (" 深 喘 ") ; 

legend (' 实 际 值 ', ' 预 测 值 ') 


得 到 如 图 14-2 所 示 图 形 。 


预测 值 


14-2 ”训练 样本 预测 结果 


对 应 的 显示 到 上 证 曲线 上 ， 程 序 如 下 : 


unction imshowresult (data, accuracy) 
股票 数据 预测 ， 绘 
A: 
data: 原始 股票 数据 m NEN 
accuracy: 股票 accuracy (: ,1) 实 际 涨幅 和 accuracy (: ,2) 预测 涨幅 矩阵 


de dp de oe Hh 


figure (100) 

plot( data, 'b.-' ); 

hold on 

$ 实际 选用 的 为 数据 点 前 6 x 10 = 60 天 的 数 据 

for i-1:size(accuracy,1) % 预测 的 点 数 


if accuracy (i, 1)--accuracy (i,2) 
plot([60*i-1,60*i], [data (60*i-1) , data (60*1)], 'b-') 
plot (60+i, data (604i), 'b.') . 
elseif accuracy (i, 1)«accuracy (i,2) % 本 身 为 下 跌 ， 预 测 为 上 涨 
plot ([60+i-1, 60+i], [data (60+i-1) , data (60+1 ) +1] , 'r-') 
plot(60*i,data(60*i)41,'r.') 
data (60+1 ) =data (60+i) +1; - 
elseif accuracy (i, 1)»accuracy (i,2) $ 本 身 为 上 涨 ， 预 测 为 下 跌 
plot ([60+i-1, 60+i], [data (60+i-1),data(60+i)-1],'g-') 
plot (60+i, data (60+i)-1,'g.') 
data (60+1 ) =data (60+i)-1; 


end 
end 
xlabel (' 数 据 长 度 ') ; 
ylabel (' 实 际 指数 ') ; 
hold off 


end 


得 到 如 图 14-3 所 示 图 
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14-3 ”训练 样本 预测 结果 对 比 图 


xt 
= 
IR] 


图 14-3 所 示 ， 蓝 色 的 “” 为 预测 正确 的 结果 ; 红色 的 “o” 为 上 证 指数 实际 为 下 跌 ， 但 是 贝 叶 斯 网 络 预测 为 上 涨 的 错误 结果 ; 绿色 的 “*” 为 上 证 指数 实际 为 上 涨 ， 但 是 贝 叶 斯 网 络 预测 为 下 跌 的 错误 
结果 。 因 此 在 应 用 贝 叶 斯 网 络 进行 数据 预测 时 ， 应 多 加 注意 红色 的 “o”。 


采用 贝 叶 斯 网 络 进行 上 证 指数 涨 跌 预 测 ， 其 主 函数 程序 整体 如 下 : 


clc,clear,close all % 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗 口 
warning off も 取消 
feature jit off $ 加 速 通道 
load('database.mat'); を 加 载 数据 
data = closeprice'; S 以 收盘 价 作为 分 析 工 具 
L = length (data); る 数据 长 度 
day = 10; 名 10 天 为 一 个 step， 进 而 预测 第 11 天 的 状态 
k=1; 
for np = L-600 :1:L-550 を 预测 当前 点 
[training,group] = extract train(data,day,np); る 提取 np 点 之 前 的 数据 


test = data (np-day*l:np)'; 
を 创建 朴素 贝 叶 斯 分 类 器 对 象 ObjBayes 


Obj Bayes = NaiveBayes fit (training, group, 'Distribution', 'normal'); 
s UB OI IUN 斯 分 类 器 对 象 0bjBayes， 对 训练 样本 进行 判别 
resulss = ObjBayes predict (ObjBayes,test); 


ro 
上 涨 为 2 
š 下 跌 为 1 T 
disp( (' 当 前 状态 涨幅 Bayes 涨 幅 : ' ) 
disp([ (data (np+1) -data (np) >0) +1, results]) 


de op de 


accuracy (k, :)=[ (data (np+1) -data (np) >0) +1, results]; 
k=k+1; 

end 

equ = find(accuracy(:,1)--accuracy (:,2)); 

nequ = find(accuracy(:,1)--accuracy(:,2)); % 不 相等 

acc = length (equ) /length (accuracy) ; 

disp (['Bayes 涨 幅 预 测 准确 率 : ', num2str (acc) ] ) 

$ figure(1) 

$ plot( data(L-760:np) ) 

figure (2) 

plot (accuracy (:,1), 'b.-', 'markersize',15) 

hold on 

plot (accuracy (:,2),'ro-', markersize',6) 

xlabel (' 预 测 值 ') ylabel( (' 涨 跌 ') 


legend(' 实 际 值 '， ETT ) 


$ 显示 实际 股票 数据 预测 曲线 
imshowresult (data (L-660:np) , accuracy) 


在 本 例 中 ， 也 可 以 采用 第 4 章 、 第 5 章 的 指标 作为 训练 集 ， 然 后 涨 跌幅 值 作 为 训练 集 预测 结果 ， 进 行 预测 。 


144 贝 叶 斯 网 络 下 的 价格 指数 建 模 与 预测 


收集 如 表 14-1 所 示 的 数据 。 


表 14-1 待 分 析 数 据 


年 度 ・ 7 TN ` Š ER R 交 保费 收入 
数据 E 次 2 增长 率 (月 ) 


2007/1/31| 142 | 104.4 | 1675.398 | 2261.85 | 32 |0.8155| 6.33 | 24806013 | 0.263351 
2008/1/31| 12.02 | 105.3 | 1957.054 | 2704.661 | 3.5 | 0.7667 
2009/1/31] 12.18 | 100 | 2198.632 | 3267.672 | 3.4 |0.7786 
2010/1/31| 12.3 | 102.9 | 2749.384 | 4145.032 | 3.36 [0.7811 
2011//31| 10.9 | 105 | 3455.927 | 5002.07 | 3.35 | 0.7985 
AUI EN UL ABS | 5904519 [222 9 1.07 | 39573602 | 0.086981 
2013/1/31| 9.56 | 10223 | 4559.946 | 66888 | 3.24 | 0.7568 | 1.17 | 57393995 | 0.138143 
2014/1/31| 8.7 | 101.91 | 5026.827 | 7175.9 | 3.3 |0.7668| 1.72 |186662721.8| 0.136505 | 
2015/1/31] 8 [10123 | 55293 | 82492 [3.35 |0.7368 


进行 归 一 化 处 理 ， 公 式 如 下 : 


Xij — min En 
P — 


J 


max (x, ) = min (x, ) 


首先 需要 指定 要 建立 贝 叶 斯 网 络 的 节点 个 数 (N) 、 节 点 顺序 、 最 大 父 节点 个 数 ， 具 体 程序 如 下 : 


%% 清空 环境 变量 

clc,clear,close all s 清 屏 、 清 理工 作 区 、 关 闭 图 形 窗 口 
warning off s 取消 警告 

feature jit off s 加 速 通道 

format lon 

%% 添加 函数 文件 路 径 

addpath (genpath (' FullBNT-1.0.4')); 


$$% 加 载 原 始 数据 


load('data.mat') 


S [{'GDP: 累 计 同 比 ', 'CPI: 累 计 同比 ', ' 地 方 公共 财政 收入 累计 值 ',' 地 方 公共 财政 支出 累计 值 ', http: / /www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/' 
を ' 城 镇 登记 失业 率 ',' 存 贷款 比率 ',' 不 良 贷 款 率 ',' 山 东 省 证 券 交 易 总 金额 《上交所 及 深交 所 )' ,http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/16446/OEBPS/ 
% "保费 收入 增长 率 (月 ) ", " 保 陰 深度 て %) '}] 

datal = cell2mat (data (2:end, [3,4,6:13])); 

s 归 一 化 处 理 


for i-1:size(datal,2) 

maxindex(i) = max(datal(:,i)); 

minindex(i) = min(datal(:,i)); 

data2(:,i) = (datal(:,i)-minindex(i))./ (maxindex(i)-minindex(i)); 
end 


将 算法 数据 进行 ow、mid、high 划 分 ， 具体 程序 如 下 : 


$$ low mid high 区 分 
for i-1:size(datal,2) 
dd(i) = std(data2(:,1i)); 
mm(i) = mean (data2 ( : , 1) ) 
for j=1:size (data2, 1 ) 
if data2(j,i)«mm(i)-ad(i) 
data2 (j,i)=1; 
elseif data2 (], 1) >=mm (1) -dd (1) && data2 (], 1) <=mm (1) +dd (1 ) 
data2 (j, 1) =2: 
elseif data2 (], 1) >mm (1) +dd (1 ) 
data2 (j, i)=3; 
end 
end 
end 


得 到 相应 的 data2 和 矩阵 ， 具 体 如 图 14-4 所 示 。 
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图 14-4” 低 、 中 、 高 3 种 状态 划分 


14.4.1 ” 读 入 采集 到 的 数据 


为 构建 贝 叶 斯 网 络 要 导入 数据 ， 具 体 程序 如 下 : 


N=10; % 分 析 指 标 个 数 

discrete nodes = 1:N; を 离散 节点 

ns = 3*ones(1, N); る 节点 状态 数 

$ order-randperm(N); % 每 个 节点 拓扑 网 络 阶 数 
order-[1, 2, 3, 4, 8, 5, 6, 9, 10, 7]; % 拓扑 网 络 节点 序号 
max fan in = 2; % 最 大 父 节点 个 数 

Data train = data2'; 

[num atttrib,num cases] = size(Data train); 


Data trainl = zeros (num atttrib,num cases); 


144.2 ”建立 贝 叶 斯 网 络 


下 面 对 某 省 区 域 经 济 的 数据 建立 贝 叶 斯 网 络 的 部 分 程序 : 


dag = learn struct K2(Data trainl, ns, order, max fan in, 1); 
bnet = mk bnet(dag, ns); 
draw graph (dag); 


得 到 在 MATLAB 2014a 环 境 下 运行 的 结果 ， 如 图 14-5 所 示 。 


值得 注意 的 是 ， 该 FullBNT-1.0.4 工 具 箱 在 MATLAB 2015b 下 运行 时 会 提示 错误 ， 这 是 由 于 轴 
2012b 下 调式 通过 。 


属性 不 兼容 问题 导致 的 ， 建 议 读者 使 用 低 版 本 的 MATLAB 


nere 


运行 ， 


本 程序 在 MATLAB 2014a、MATLAB 


A 
NO 


14-5 ”区域 经 济 的 贝 叶 斯 网 络 


在 图 14-5 中 ，@ 表 示 GDP 累 计 同比 ，@ 表 示 CPI 累 计 同比 ，@ 表 示 地 方 公共 财政 收入 累计 值 ，@ 表 示 地 方 公共 财政 支出 累计 值 ，@ 表 示 城 镇 登记 失业 率 ，@ 表 示 存 贷款 比率 ，Q@ 表 示 不 良 贷款 率 ，@ 表 
示 证 券 交 易 总 金额 ，@ 表 示 保 费 收入 增长 率 ，@ 表 示 保 险 深度 。 


14.4.3 ”对 构建 的 贝 叶 斯 网 络 进行 参数 学 习 


贝 叶 斯 网 络 的 参数 学 习 程 序 具 体 如 下 : 


for i-1:N 
bnet.CPD(i) = tabular CPD(bnet, i, 'CPT','unif','prior type','dirichlet'); 
end 
bnet2 = bayes update params (bnet, Data train); % 更 新 条 件 概率 表 
CPT3 = cell(N,1); 
for i-1:N 


s = struct (bnet2.CPD(i]); 
CPT3(i) = s.CPT ; 
end 


在 MATLAB 环 境 下 运行 该 程序 ， 得 到 结果 如 表 14-2~ 表 14-11 所 示 。 


表 14-2 CPT- EQ EJ + 


一 Hr x« dB 
0.2000 
0.6000 


0.2000 


ans = 


概 率 (B 
0.1000 
0.6000 
0.3000 


ans = 


Tr A 自 
ans = 0 |1 
DE 
tilolo 


ans(:,:,1) = () 
() 
U 


ans(,;2) = 0 
0 
0 
ans(:,:,3) = | 
0 


z 概 率 
fü 

ans — 0.2000 
0.7000 


0.1000 


EZ 


ans 


() 
() 


() 


| 
| 


表 14-9 ”CPT-8 影 响 因子 


| 


E HR X fü 量 É X fü 
ans(:,:,1,1) = 0 0 | 0 ans(:,:,3,2) = 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 
ans(:,:,2,1) = 0 0 0 ans(:,:,1,3) = 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 
ans(:,:,3,1) = 0 0 0 ans(:,:,2,3) = 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 
ans(:.:.1.2) = 0 0 0 ans(:,:,3,3) = 0 0 I 
0 0 0 0 0 0 
l 0 | 0 0 0 0 
anS( :。:,2.2) = 0 0 0 
0 l 0 
0 0 0 


is 


[0 | 


表 14-11 CPT-10 影 响 因子 


量 概 率 値 


ans= | 0 | Ü | 


U 0.1429 


I 6 [Š 


如 表 14-2~ 表 14-11 所 示 ， 其 概率 值 分 别 表 示 节 点 之 间 的 相互 影响 因子 。 


1444 ”条 件 概 率 分 析 


如 何 求解 贝 叶 


本 节 考 虑 某 省 


网 


络 每 个 节点 的 条 件 概率 值 ， 是 该 类 问题 研究 的 关键 。 本 节 将 着 重 讲解 贝 叶 斯 网 络 结构 节点 条 件 概率 求解 的 方法 和 思路 ， 同 时 读者 也 可 以 参考 本 书 给 出 的 参考 文献 。 


经 济 问题 ， 采 用 贝 叶 斯 网 络 进行 宏观 分 析 ， 建 立 如 图 14-6 所 示 贝 叶 斯 网 络 结构 图 。 读 者 也 可 以 拓展 建立 适合 自己 的 复杂 的 贝 叶 斯 网 络 结构 图 。 


政府 控制 力 


414-6 “ 贝 叶 斯 网 络 结构 


如 图 14-6 所 示 ， 采 用 A 表 示 GDP 累 计 同 比 ，B 表 示 CPl 累 计 同比 ，C 表 示 地 方 公共 财政 收入 累计 值 ，D 表 示 地 方 公共 财政 支出 累计 值 ，E 表 示 城 镇 登记 失业 率 ，F 表 示 政 府 控制 力 ，G 表 示 区 域 宏观 ， 得 到 如 


司 14-7 所 示 简 化 图 。 


图 14-7 贝 叶 斯 网 络 结构 简化 图 


如 图 14-7 所 示 贝 叶 斯 网 络 结构 图 ， 先 采用 专家 知识 ， 给 出 每 个 节点 的 条 件 概率 ， 即 所 谓 的 先 验 概率 值 ， 具 体 如 下 : 


A 表 示 GDP 累 辻 同 比 , 具体 如 表 14-12 所 示 。 


B 表 示 CPI 累 计 同比 ， 具 体 如 表 14-13 所 示 。 


C 表 示 地 方 公共 财政 收入 累计 值 ， 具 体 如 表 14-14 所 示 。 


表 14-12 ”节点 A 的 条 件 概 率 


节点 A 的 条 件 概率 A 
().5 


表 14-13 ”节点 B 的 条 件 概率 


件 概 率 


表 14-14 ”节点 C 的 条 件 概 率 


表 14-15 节点 DD 的 条 件 概率 
节点 D 的 条 件 概 率 


T E ERU 38 FFIBL2E 


节点 三 的 条 但 


nr 0.5 0.5 


G 表 示 区 域 宏观 ， 具 体 如 表 14-18 所 示 。 


表 14-18 节点 G 的 条 件 概率 


节点 G 的 条 件 概率 G G 节点 G 的 条 件 概率 G 


O| 


ABEF 0.95 0.05 ABEF 0.6 0.4 


ABEF 0.6 0.4 ABEF 0.7 0.3 


ABEF 0.7 0.3 ABEF 0.1 0.9 


ABEF 0.1 0.9 ABEF 0.6 0.4 


ABEF 0.6 0.4 ABEF 0.7 0.3 


ABEF 0.7 0.3 ABEF 0.1 0.9 


ABEF 0.1 0.9 ABEF 0.6 0.4 


ABEF 0.6 0.4 ABEF 0.7 0.3 


如 表 14-12~ 表 14-18 所 示 ， 这 些 条件 概 率 值 理应 由 专家 给 出 的 ， 然 后 由 FullIBNT-1.0.4 工 具 箱 进行 求解 每 个 节点 的 条 件 概率 值 。 


贝 叶 斯 网 络 条 件 概率 值 求解 程序 ， 具 体 如 下 : 


% 添加 函数 文件 路 径 
addpath (genpath ('FullBNT-1.0.4')); 


EE: 

7; % 7 个 节点 

表示 GDP 累 计 同 比 ，B 表 示 CPI 累 计 同比 ，C 表 示 地 方 公共 财政 收入 累计 值 

表示 地 方 公共 Rice 累计 值 ，E 表 示 城 镇 登记 失业 率 ，F 表 示 政 府 控制 力 ，G 表 示 区 域 宏观 


gol 
RIVE 


Ed > O. oe de Zi oe 
b 
" ma 


1; B= 2; C = 3; D = 4; 
5; P = By G = T; 


dag(A,G) = 1; $ 节点 之 间 的 连接 关系 
dag(B,G) = 1; $ 节点 之 间 的 连接 关 
dag(E,G) = 1; $ 节点 之 间 的 连 
dag(F,G) = 1; $ 节点 之 间 的 i 
dag(C,F) = 1; $ EC RR 连接 关系 
dag(D,F) = 1; る 节点 之 间 的 连接 关系 


discrete nodes = 1:N; 
node sizes - 2*ones(1,N); 
bnet =mk bnet (dag, node sizes, a 
bnet.CPD{A} tabular CPD (bnet, A, [0. 
bnet.CPD{B} tabular CPD (bnet, B, [0. 
bnet.CPD{C} tabular CPD (bnet,C, [0. 
bnet.CPD(D) tabular CPD (bnet, D, [0. 
bnet.CPD(E) tabular CPD(bnet,E, [0. 

( 

( 


] 
bnet.CPD(F) tabular CPD(bnet,F, [0.95 0. 7 0. 1 0.5 0.05 0.3 0.9 0.5]) 
bnet.CPD(G) tabular CPD(bnet,G, [0.95 0.6 0.7 0.1 0.6 0.7 0.1 0.6 0.6 0.7 0.1 0.6 0.7 0.1 0.6 0.7 0.05 0.4 0.3 0.9 


$ 画 出 建立 好 的 贝 叶 斯 网 络 
figure 
draw | graph (dag) 
T Samana = 20; % 20, 200, 2000 
samples = ce11 (N, nsamples); 
for i = 1:nsamples 
samples(:,i) = sample bnet (bnet) ; 
end 
data = cell2num (samples); 
bnet2 = mk bnet (dag,node sizes,'discrete',discrete nodes); 
seed = 0; ` ー ー 
rand('state',seed); 
bnet2.CPD(A) = tabular CPD(bnet2,A); 
bnet2.CPD(B) = tabular CPD (bnet2,B); 
bnet2.CPD(C) = tabular CPD(bnet2,C); 


bnet2 .CPD{D} tabular CPD (bnet2, D) ; 
bnet2.CPD{E} tabular CPD (bnet2, E) ; 
bnet2.CPD(F) tabular CPD (bnet2,F); 
bnet2.CPD(G) tabular CPD(bnet2,G); 


bnet3 = learn params (bnet2, data) ; 


ss 随 着 训练 样本 数 nsamples 的 增加 ， 学 习 到 的 条 件 概率 表 越 来 越 台 近 于 手动 给 出 的 条 件 概率 表 
CPT = cell(N,1); 
CPT3 = cell(N,1); 
for i-1:N 
S 7 struct (bnet3.CPD(i]); 
CPT3(i) = s.CPT ; 
S = struct (bnet.CPD(i)); 
CPT(i) = s.CPT ; 
CPT3(i) 
CPT(i) 


de oe 


end 


由 此 得 到 相应 的 贝 叶 斯 网 络 结构 


， 如 图 14-8 所 示 。 


[ 


图 14-8 ” 贝 叶 斯 网 络 结构 图 


体 数值 结果 如 图 14-9 所 示 。 


CPT X| CPT{7, 1} 
CPT{7, 1} 


v$21(2, 5,1, 5, = 


0. 950000000000000 
0. 600000000000000 


- 100000000000000 


. 100000000000000 


va1(:,:,2, 1, 1) = 


0. 600000000000000 
0. 700000000000000 


. 100000000000000 
. 600000000000000 


val(:,:,1,2, = 


本 节 介 绍 的 FullBNT-1.0.4 工 具 箱 的 使 用 方法 ， 对 读者 有 一 定 的 指导 、 借 鉴 作用 。 


第 15 章 ”Pareto 多 目标 优化 分 析 


图 14-9 结果 查看 


本 章 主 要 围绕 Pareto 多 目标 求解 函数 优化 问题 。 由 于 实际 工程 中 ， 往 往 涉及 多 个 目标 需要 去 优化 分 析 ， 这 些 目标 由 于 物理 上 的 意义 ， 是 无 法 进行 简单 加 和 的 。 例 如 ， 时 间 、 成 本 、 距 离 这 3 个 目标 ， 当 


简单 地 相 加 作为 一 个 单 目标 时 ， 虽 然 满足 数学 上 的 意义 ， 但 是 并 不 满足 物理 上 的 意义 ， 


15.1 经 典 测试 函数 


一 般 对 于 群 智能 算法 性 能 测试 ， 常 选用 Schaffer 函 数 、Griewank 函 数 、Rastrigrin 
局 最 优 值 。 


(1) Griewank 隊 数 : 


Y x? 
min f(x) = Y. 
— 4000 


该 函数 存在 许多 局 部 极 小 点 ， 数 目 与 问题 的 维 数 有 关 ， 全 局 最 小 值 0 在 (x1, Xo, …, 


法 很 难处 理 的 复杂 多 模 态 问题 。 


对 于 Griewank 函 数 


图 形 ，MATLAB 程 序 如 下 : 


因此 本 章 着 重 研究 Pareto 多 目标 优化 分 析 问题 。 


函数 以 及 Rosenbrock 函 数 为 复杂 的 高 维 函 数 进 行 算法 的 验证 ， 这 几 类 函数 常 存在 很 多 局 部 最 优 的 陷阱 ， 都 较 难 找到 全 


Xy) = (0, 0, ..0) 处 可 以 获得 ， 此 函数 是 典型 的 非 线性 多 模 态 函数 ， 具 有 广泛 的 搜索 空间 ， 通 常 被 认为 是 优化 算 


function y15 1 . 
feature jit off s 加速 通 道 
& 绘制 Griewank 函 数 图 形 


x-[-8: 0.1: 8 ]; 
Y = x; 
[X,Y] = meshgrid(x, y); gs 网 格 化 
[row,col] = size(X); 
for 1 =1 :col 
for h = 1 :row 
z(h,l) = Griewank([X(h, 1), Y (n,1) ]) ; % 调用 函数 
end 
end 
surf (X,Y,z) ; る m 
view([-15.5 30]); を 设置 显示 角度 
shading interp s 消 隐 
end 


function y=Griewank (x) 
る Griewant žit 
% 输入 x, 给 出 相应 的 y 值 ,在 x = ( 0 , O ,., 0 ) 处 有 全 局 极 小 点 0 
[row,col] = size(x); 
if row > 1 
error( ' 输入 的 参数 错误 t) 


end 
yl = 1 / 4000 * sum(x.^2 ); 
y2 = 1 ; 
for h = 1 :col 
y2 = y2 * cos(x(h) / sqrt(h)); 
end 
y = yk >. yag 
Y —oYr 


end 


程序 运行 结果 如 图 15-1 所 示 。 


/« Figure 1 -— —— | 
文件 昌 S860 ZEV 插入 ”工具 中 SED) SOW ”帮助 (H) 
Ge s s<. sa a ns a, 


图 15-1 Griewank š žk E 77 


图 15-1 中 的 图 形 具 有 较 多 的 局 部 最 优 值 ， 一 般 被 用 来 检测 算法 是 局 部 收敛 还 是 全 局 收敛 。 


(2) Rastrigrin 函 数 : 


D 


min f(x,) = > [x; - 10cos(2zx,) +10] 


i=] 


其 中 ， xe [55] 


te^ utbs, 在 Cox) 7 (00.0.0) 处 取得 全 局 最 小 值 0, 在 U € (— 
典型 的 非 线性 的 多 模 态 函数 ， 峰 形 呈 高 低 起伏 不 定 ， 所 以 很 难 优化 查找 到 全 局 最 优 值 。 


对 于 Rastrigrin 函 数 图 形 ，MATLAB 程 序 如 下 : 


function y15 2() 


feature jit off を 加 速 通道 
s 绘制 Rastrigin 函 数 图 形 

x-[-5: 0.085 + Š ]; 

y = x; 

[X,Y] = meshgrid (x,y); % 网 格 化 
[row,col] = size(X); 


for 1 = 1 :col 
for h = 1 :row 


z(h,1) = Rastrigin([X(h, 1) ,Y(h, 1) ) ; % 调用 函数 
end 
end 
mesh (X, Y, z) ; る mesh 画 図 
shading interp s 消 隐 


end 


function y = Rastrigin (x) 
$ Rastrigin 函 数 
$ 输入 x, 给 出 相应 的 y 值 ,在 x = ( 0 ，0 ,., 0 ) 处 有 全 局 极 小 点 0 
[row, col] = size(x); 
if row > 1 
error( ' 输入 的 参数 错误 ! ): 


y = sum(x.^2 - 10 * cos( 2 * pi * x) + 10 ); 


Mos 
end 


5.12,5.12),i=1,2,---n]ss 


内 大 约 有 10n 个 局 部 极 小 点 ， 此 函数 同 Griewank 函 数 类 似 ， 也 是 一 种 


程序 运行 结果 如 图 15-2 所 示 。 


* 


文件 5 S80 ZEV AA IAD SEO EDO) EE) ` 


EF EI 


"í 


图 15-2 ”Rasttigin 函 数 图 形 


对 于 Rastrigin 函 数 图 形 ， 合 理 地 选取 图 形 x、y 的 取 值 范围 ， 可 以 构造 具有 一 个 极 值 的 检测 函数 ， 也 可 以 进行 算法 检测 。 整 个 Rastrigin 函 数 图 形 构成 了 大 量 的 局 部 最 优 值 ， 普 通 算法 易于 陷入 局 部 最 优 。 


n (sin x? + x; Y — 0.5 


(14- 0.001(x2 + x2)y! 


(3) Schaffer 函 数 : 
min 0 


xn 7% [5,5] 
该 函数 是 二 维 的 复杂 函数 ， 具 有 无 数 个 极 小 值 点 ， 在 (0, 0) 处 取得 最 小 值 0， 由 于 该 函数 具有 强烈 震荡 的 性 态 ， 所 以 很 难 找到 全 局 最 优 值 


对 于 Schaffer 函 数 图 形 ，MATLAB 程 序 如 下 : 


function y15 3() 
& 绘制 Schaffer 函 数 图 形 
x-[-5:0.05:5]; 


ycxi 
[X, Y] »meshgrid (x, y) ; 名 网 格 化 
[row, col]=size (X); 
for l-1:col 
for h-l:row 
z (h, 1) =Schaffer ( [X(h, 1), Y (h, 1) ]) ; る 调用 Schaffer 函 数 
end 
end 
mesh (X, Y, z) ; 5 mesh 画图 
shading interp % 消 隐 
end 


function result-Schaffer (x1) 
sSchaffer 函 数 


% 输 入 x, 给 出 相应 的 y 值 ,在 x= (00,…, 0) 处 有 全 局 极 大 点 1 
[row,col]-size (x1); 
if row>1 


error (' 输 入 的 参数 错误 ') 7 


temp-x^2ty^2; 
result-0.5- (sin (sqrt (temp) ) ^2-0.5) / (1+0 .001*temp) ^2; 


程序 运行 结果 如 图 15-3 所 示 。 


文件 昌 ”编辑 (E) SEV 插入 WD” 工具 中 SMO SOW #(H) 
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图 15-3 Schaffer% žk 


(4) Ackley 函 数 : 


D — exp es(2my) Teta 


zl 


f (x) = ^e, exp 


其 中 ，-8<xi<8。 


该 函数 是 一 个 n 维 函数 ， 具 有 较 多 的 局 部 最 小 值 ， 在 (0, 0) 处 取得 最 小 值 0， 该 函数 很 难 辨别 个 体 搜索 最 优 值 方向 ， 且 查找 全 局 最 优 解 较 困 难 。 


对 于 Ackley 函 数 图 形 ，MATLAB 程 序 如 下 : 


function y15 4( 
$ Sel ai 本数 形 
x-[-8:0.1:8]; 


MR 
[X, Y] »-meshgrid (x, y) ; % 网 格 化 
[row,col]-size(X); 
for l-1:col 
for h-l:row 
z (h, 1) -Ackley ([X (h, 1) , Y (h, 1) ] ) ; る 调用 Ackley 函 数 
end 
end 
mesh (X, Y, z) ; る mesh 画 图 
shading interp % 消 隐 


end 


function y-Ackley (x) 
SAckley 函数 
% 输 入 x, 给 出 相应 的 y 值 ,在 x=(0, 0,.…0) 处 有 全 局 极 小 点 0, 为 得 到 最 大 值 ， 返 回 值 取 相 反 数 
[row,col]-size(x); 
if row>1 
error (' 输 入 的 参数 错误 ') ; 


eni 
y=-20*exp (-0.2*sqrt ( (1/co1) * (sum(x. ^2) ) ) ) -exp ( (1/col) *sum (cos (2*pi . *x) ) ) +exp (1) +20; 
end 


程序 运行 结果 如 图 15-4 所 示 。 


对 于 Ackley 函 数 图 形 ， 在 -8<xi<8 内 ， 该 函数 存在 最 小 值 ， 存 在 很 多 局 部 最 小 值 。 


4 Figure 1 
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图 15-4 Ackley% g£ A # 


15.2 ”遗传 算法 优化 的 单 目标 模型 
遗传 算法 (GA, Genetic Algorithm) 是 一 类 借鉴 生物 界 的 进化 规律 〈 适 者 生存 ， 优 胜 劣 汰 遗传 机 制 ) 演 化 而 来 的 随机 优化 搜索 方法 。 它 具有 内 在 的 隐 并 行 性 和 更 好 的 全 局 寻 优 能 力 ， 能 够 自 适应 地 油 
整 搜 索 方向 ， 不 需要 确定 的 规则 ， 已 被 人 们 广泛 地 应 用 于 组 合 优化 、 机 器 学 习 、 自 适应 控制 等 领域 。 


遗传 算法 GA 初 代 种 群 产生 之 后 ， 按 照 适 者 生存 和 优胜 劣 汰 的 原理 ， 逐 代 演 化 产生 出 越 来 越 好 的 近似 解 ， 在 每 一 代 ， 根 据 问题 域 中 个 体 的 适应 度 大 小 选择 个 体 ， 并 借助 于 自然 遗传 学 的 遗传 算 子 进行 组 合 
交叉 和 变异 ， 产 生出 代表 新 的 解 集 的 种 群 。 


遗传 进化 操作 简单 、 易 懂 ， 是 其 他 遗传 算法 的 雏形 和 基础 ， 它 不 仅 给 各 种 遗传 算法 提供 了 一 个 基本 框架 ， 同 时 也 具有 一 定 的 应 用 价值 。 具 体 的 遗传 算法 的 求解 流程 如 图 15-5 所 示 。 


计算 各 个 个 体 的 


适应 度 值 

征 合 满足 算法 ET 
收敛 准则 输出 收敛 结果 
执行 选择 操作 


执行 交叉 操作 


执行 变异 操作 


设计 GA 遗 传 算法 设计 的 单 目标 优化 求解 界面 如 图 15-6 所 示 。 
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当前 点 : [575.251] 位置 : [520.384. 976, 477] 


在 “模型 求解 ”按钮 下 写 入 如 下 代码 : 


遗传 算法 单 目标 求解 


function pushbutton2 Callback (hObject, eventdata, handles) 


warning off を 取消 警告 
feature jit off s 加 速 通道 


% 粒 子 群 算法 中 的 两 个 参数 

Pc str2num( get (handles.editl,'string') ) 
pm = str2num( get (handles.edit2, 'string') ) 
maxgen-str2num( get (handles.edit3, 'string') 
sizepop-str2num( get (handles.edit4, 'string') ); 


fl = get(handles.radiobuttonl, 'Value'); 
を 如 果 选 择 了 单 选 按钮 1， 则 调用 Ackley 函 数 
if fl= 


fun-GAckley Fun; 
end 
f2 = get(handles.radiobutton2, 'Value'); 
% 如 果 选 择 了 单 选 按钮 2， 则 调用 griewank 函 数 
if f2== 
fun-8griewank func; 
end - 
f3 = get(handles.radiobutton3, 'Value'); 


$ 如 果 选 择 了 单 选 按钮 3， 则 调用 rastrigin 函 数 


if f3== 
fun-érastrigin func; 
end T 

f4 = get(handles.radiobutton4, 'Value'); 
る 如 果 选 择 了 单 选 按钮 4， 则 调用 Shaffer 函 数 


if f4== 
fun-GShaffer Fun; 
end 


初始 速度 和 种 群 上 下 边界 值 
popmin--5; 


pmax=5; 
遗传 算法 参数 设置 


E 


上 下 边界 
Ol 
% 产生 初始 个 体 和 速度 


or i-1:sizepop 
% 随 机 产生 一 个 种 群 
% 随机 产生 一 个 种 群 


Ph ee de L5 op 吗 
[e] 


individuals.chrom(i, : ) =Code (lenchrom, bound) ; 


x-individuals.chrom(i,:); 


$ 计算 适应 度 


individuals. fitness (i)-fun (x); を 染色 体 的 适应 度 


end 


%% 找 最 好 的 染色 体 


[bestfitness,bestindex] = min(individuals.fitness) 


bestchrom = individuals.chrom(bestindex,:); 


% 记录 每 一 代 进 化 中 最 好 的 适应 度 和 平均 适应 度 


trace = [bestfitness]7 
%% ERI 
fun y zeros (1,maxgen); 
for i-l:maxgen 
る disp([' 当 前 迭代 次 数 ，', num2str (1) ] ) 
% 种群 更 新 
选择 
individuals-GA Select (individuals, sizepop); 
& 交叉 


individuals.chrom-GA Cross (pc, lenchrom, individuals .chrom, sizepop, bound) ; 


$ 变异 


individuals.chrom-GA Mutation (pm, lenchrom, individuals.chrom, sizepop, i,maxgen, bound) ; 


$ 计算 适应 度 

for j=1:sizepop 
individuals.chrom(j, : 
x-individuals.chrom(j 
individuals. fitness (j)-fun(x); 


d 
$ 找到 最 小 适应 度 的 染色 体 及 它们 在 种 群 中 的 位 置 
[ 
[ 


newbestfitness,newbestindex]-min (individuals.fitness); 
worestfitness,worestindex]-max (individuals.fitness); 


% 代 蔡 上 一 次 进化 中 最 好 的 染色 体 
if bestfitness>newbestfitness 
bestfitness-newbestfitness; 


enchrom - 2; % 染色 体 编码 长 度 ，2 个 变量 


und= wayana (1enchrom, 1) ,popmax*ones (1enchrom, 1)]; 
人 


Š 最 好 的 染色 体 


= individuals.chrom(j,:) 


染色 体 的 适应 度 


% 编码 (binary 和 grey 的 编码 结果 为 一 个 实数 ，float 的 编码 结果 为 一 个 实数 向 量 


bestchrom-individuals.chrom (newbestindex, :); 


end 
individuals .chrom (worestindex, :)-bestchrom; EISE 4" E 
trace=[trace;bestfitness]; SERBERE H Beb DA u JE 
end 
axes (handles.axes2) $ 在 轴 2 下 显示 图 像 


plot (1:length (trace),trace(:,1),'b--','linewidth',2); 
title([" 适 应 度 曲 线 '，' 终 止 代数 二 ' num2str (maxgen) ] ) ; 
xlabel (' 进 化 代数 ') ; YLabel (' 适 应 度 ') ; 

legend ( "最 佳 适应 度 ') ; 


%% 结果 

$ disp ' 最 优 解 '; 

bestchrom; 

$ disp ' 最 优 解 对 应 的 最 优 函 数值 ' 


bestfitness; 


set (handles.edit5, 'string',bestchrom( 


1); 
set (handles.edit6, 'string',bestchrom(2)); 


像 


运行 GUI， 得 到 如 图 15-7~ 图 15-10 所 示 结 果 。 
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图 15-10 Shaffer Fun 求解 


具体 遗传 算法 的 选择 算 子 程序 如 下 : 


function ret-GA Select (individuals, sizepop) 


PHT IET E PIE 
函数 输入 : 
individuals: 种 群 信息 
sizepop: 种 群 规 

Tet: 选择 后 的 新 种 群 


% 求 适应 度 值 倒数 
fitnessl-1./individuals.fitness; $individuals.fitness 为 个 体 适应 度 值 


de de de de op de 


$ 个 体 选择 概率 

sumfitness-sum(fitness1); を 适应 度 值 总 和 
sumf-fitnessl./sumfitness; S 适应 度 值 总 和 的 倒数 
$s 采 用 轮 盘 赌 法 选择 新 个 体 

index=[]; 

for i=1:sizepop ssizepop 为 种 群 数 


pick=rand; 
while pick==0 
pick=rand; % ”随机 取 值 
end 
for i=1:sizepop 
pick-pick-sumf (i); 
if pick«0 
index-[index i]; % 选择 个 体 
break; 
end 
end 


% 新 种 群 
individuals.chrom-individuals.chrom (index, :); 
individuals .chrom 为 种 群 中 个 体 


% 提取 对 应 的 适应 度 值 


individuals.fitness-individuals.fitness (index); 
ret-individuals; % 赋值 输出 项 


一 般 情况 下 ， 可 以 不 采 


选择 算 子 ， 即 将 初始 化 个 体 全 部 选择 。 


交叉 算 子 程序 如 下 : 

function ret-GA Cross (pcross, lenchrom, chrom, sizepop, bound) 
本 函数 完成 交叉 操作 

% 函数 输入 : 

$ pcorss 交叉 概率 

$ lenchrom 染色 体 的 长 度 

$ chrom 染色 体 群 

$ sizepop 种 群 规模 

る 函数 輸出 

$ ret : 交叉 后 的 染色 体 


for i-l:sizepop 
% 随机 选择 两 个 染色 体 进行 交叉 
pick=rand(1,2); 
while prod (pick) ==0 
pick=rand (1,2); 
end 
index-ceil (pick.*sizepop); 
% 交叉 概率 决定 是 否 进行 交叉 
pick-rand; 
while pick--0 
pick-rand; 
end 
if pick^pcross 
continue; 
end 
flag-0; 
while flag--0 
を 随机 选择 交叉 位 
pick-rand; 
while pick--0 
pick=rand; 
end 


$ 每 一 轮 for 循 环 中 ， 可 能 会 进行 一 次 交叉 操作 ， 染 色 体 是 随机 选择 的 ， 交 义 位 置 也 是 随机 选择 的 ， 但 该 轮 for 循 环 中 是 否 进行 交叉 操作 则 由 交叉 概率 决定 (continue 控 制 ) 


pos-ceil(pick.*sum(lenchrom)); % 随 机 选择 进行 交叉 的 位 置 ， 即 选择 第 几 个 变量 进行 交叉 ， 注 意 : 两 个 染色 体 交 叉 的 位 置 相同 


pick-rand; $$ 交叉 开始 

vl=chrom (index (1) , pos) ; 

v2-chrom (index (2) , pos) ; 

chrom (index (1 ) , pos) =pick*v2+ (1-pick) *V1 
chrom (index (2),pos)-pick*vl* (1-pick) *v2; 


X 
检验 染色 体 1 的 可 行 性 


flagl=test (bound, chrom (index (1), : ) ) 4 
% 检 验 染 色 体 2 的 可 行 性 


flag2-test (bound, chrom (index (2), : ) ) 

if flagl*flag2--0 
flag-0; 

else 
flag-1; 

end 

end 
end 
ret-chrom; 


る 如 果 两 个 染色 体 不 是 都 可 行 ， 则 重新 交叉 


变异 算 子 具体 程序 如 下 : 
function ret-GA Mutation (pmutation, lenchrom, chrom, sizepop, num, maxgen, bound) 
% 本 函数 完成 变异 操作 

% 输入 

$ pcorss : 变异 概率 

$ lenchrom : 染色 体 长 度 

$ chrom : 染色 体 群 

% sizepop : 种 群 规模 

$ opts : 变异 方法 的 选择 

$ pop : 当前 种 群 的 进化 代数 和 最 大 的 进化 代数 信息 

% bound : 每 个 个 体 的 上 届 和 下 届 

$ maxgen : 最大 送 代 次 数 

$ num : UBER UO 

o 输出 

$ ret : 变异 后 的 染色 体 


for i-1:sizepop 

% 随机 选择 一 个 染色 体 进行 变异 
pick=rand; 
while pick==0 

pick=rand; 
end 
index-ceil (pick*sizepop); 
% 变异 概率 决定 该 轮 循环 是 否 进行 变异 
pick=rand; 
if pick>pmutation 

continue; 
end 
flag=0; 
num = 0; 
chroml = chrom(i,:); 
while flag==0&&num<=20 

% 变异 位 置 

pick-rand; 

while pick==0 

pickerand; 


end 
pos-ceil(pick*sum(lenchrom)); ” % 随 机 选择 了 染色 体 变异 的 位 置 ， 即 选择 了 第 pos 个 变量 进行 变异 
pick-rand; $ 变 异 开始 
fg= (rand* (1-num/maxgen) ) ^2; 
if pick»0.5 
chrom (1, pos) =chrom (i, pos) + (bound (pos, 2) -chrom (i, pos) ) *£g; 
else 


chrom(i,pos)-chrom(i,pos)- (chrom(i,pos)-bound (pos, 1) ) *£g; 
vi 


end $ 变 异 结束 
flag-test (bound, chron (i, :)); sg 检验 染色 体 的 可 行 性 
检验 次 数 设置 


num = numtl; 
る 如 果 大 于 20 次 ， 则 不 变异 


end 

if num>20 
chrom(i,:) = chroml; 
end 

end 

ret-chrom; 


$ 每 一 轮 for 循 环 中 ， 可 能 会 进行 一 次 变异 操作 ， 染 色 体 是 随机 选择 的 ， 变 异 位 置 也 是 随机 选择 的 ， 但 该 轮 for 循 环 中 是 否 进行 变异 操作 则 由 变异 概率 决定 (continue 控 制 ) 


值得 注意 的 是 : 遗传 算法 选择 算 子 极 容易 出 现 选 择 为 空 的 情况 ， 这 是 由 于 在 迭代 的 过 程 中 ， 个 体 的 选择 数量 逐渐 减少 


体 的 选择 操作 ， 可 以 在 初始 化 个 体 中 选择 ， 选 择 精英 种 群 。 


15.3 ”Pareto 多 目标 求解 GUI 设 计 


很 多 人 可 能 都 会 遇 到 
多 目标 的 呢 ? 这 一 直 是 困 


这 样 一 个 难题 ， 即 多 目标 优化 问题 。 我 们 知道 ，Pareto 用 
扰 我 们 的 难题 。 接 下 来 一 起 来 探讨 遗传 算法 Pareto 多 目标 求解 问题 。 


， 导 致 最 后 个 体 选 择 为 空 。 一 般 情况 下 ， 可 以 不 进行 个 体 的 选择 操作 ;， 如 果 进行 个 


于 解决 多 目标 优化 问题 ， 并 且 MATLAB 遗 传 算法 工具 箱 也 集成 了 Pareto 求 解 多 目标 函数 ， 然 而 遗传 算法 Pareto 是 如 何 求解 


一 般 ， 多 目标 规划 问题 (MOP, multi-objective programming) 可 以 描述 为 如 下 形式 : 


min f (x) 2 (f (x), f, (x)) 


g,(x)= 0,ie 1 
h.(x)20,je E 


J 


对 于 多 目标 规划 问题 ， 记 它 的 变量 可 行 域 为 S， 相 应 的 目标 可 行 域 Z=f (S). 
给 定 一 个 可 行 点 X*ES， 有 VX es ， 有 f (x*) sf (x) ， 则 x* 称 为 多 目标 规划 问题 的 绝对 最 优 解 。 若 不 存在 xe S， 使 得 f(x) «f (x*) ， 则 称 x* 为 对 目标 规划 问题 的 有 效 解 ， 多 目标 规划 问题 的 有 效 
解 也 称 为 Pareto 最 优 解 。 


值得 注意 的 是 : 遗传 算法 Pareto 多 目标 求解 问题 ， 在 《MATLAB GUI 设计 入 门 与 实战 》 一 书 中 只 是 一 个 初步 ， 如 果 彻 底 解 决 和 掌握 了 遗传 算法 Pareto 多 目标 求解 问题 ， 则 对 于 粒子 群 算法 、 蚁 群 算法 、 
模拟 退火 算法 等 算法 求解 多 目标 函数 就 显得 很 容易 ; 本 节 继续 对 PARETO TOOL 多 目标 求解 进行 深入 的 解读 ， 具 体 体 现在 代码 的 精读 ， 读 者 可 根据 需要 深入 研究 。 


选取 测试 函数 如 下 。 


(1) Rastrigrin 函 数 : 


min f(x,) = Y [x —10cos(2zx,) +10] 


i=l 


其 中 , x€[-5, 5l. 


该 函数 是 个 多 峰值 的 函数 ， 在 X) (0 0,…0 ) 处 取得 全 局 最 小 值 0， 在 Ix € (一 5.12,5.12), = 上 2.… 吕 范围 内 大 约 有 10n 个 局 部 极 小 点 ， 此 函数 同 Griewank 函 数 类 似 ， 也 是 种 
典型 的 非 线性 的 多 模 态 函数 ， 峰 形 呈 高 低 起 伏 不 定 ， 所 以 很 难 优化 查找 到 全 局 最 优 值 ; 具体 如 图 15-2 所 示 。 


(2) Ackley 函 数 : 


QA 
j 
= 


— exp Z$ cos(2mx) +e te 
j=l 


其 中 ，-8<x<8。 


该 函数 是 一 个 n 维 函数 ， 具 有 较 多 的 局 部 最 小 值 ， 在 (0, 0) 处 取得 最 小 值 0， 该 函数 很 难 辨 别 搜索 最 优 值 方向 ， 查 找 全 局 最 优 解 较 困 难 ; 具体 如 图 15-4 所 示 。 


对 于 多 目标 函数 而 言 ， 目 标 函 数 为 两 个 目标 值 ， 具 体 程序 如 下 : 


function fitnessfcn=nsga_fitness (X) 


$ Rckley 函 数 


fitnessfcn (1) = -20*exp(-0.2*sqrt ( (x(1) ^2+x (2) ^2) /2) ) -exp ( (cos (2*pi*x(1))-* cos (2*pi*x(2)))/2)42042.71289; 
る Rastrigin 函 数 

fitnessfcn(2) = sum(x .^ 2 - 10 .* cos(2 .* pi .* x) * 10, 2); 

end 


相应 的 主 程序 如 下 : 


clc,clear,close all $ 清 屏 、 清 理工 作 区 
warning off s 取消 警告 
feature jit off を 加 速 通道 

nvars = 2; % 求解 未 知 变量 个 数 
lb-[-5 , -5 N s 取 值 下 限 
ub=[10 , 10]; % 取 值 上 限 
A-[]; b=[]; $ 不等式 约束 
Aeg-[]; beq=[]; $ 等 式 约束 


` Wd dk = 

%% 遗传 算法 多 目标 求解 

options-gaoptimset ('ParetoFraction',0.3 ,'PopulationSize',30,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'CrossoverFraction',0.9, 'MigrationFraction',0.05,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/... 


'Generations',200,'StallGenLimit',200, 'TolFun',1e-100, 'PlotFcns', Ggaplotpareto); 


[x,fval]-ga multiobj (@ (x) nsga_ fitness(x),nvars,A,b,Aeq,beq,lb,ub,options) % 多 目标 求解 


相应 的 ga_multiobj 函 数 如 下 : 


unction [x,fval,exitFlag,output,population,scores] = ga multiobj (fun, nvars, Aineq, bineq, Aeq, beq, lb, ub, options) 
多 目标 求解 ， 求 多 个 目标 的 最 小 值 y 
min F(X) subject to: A*X <= b, Aeq*X = beq (linear constraints) 
X lb <= X <= ub (bound constraints) 
返回 的 为 x 的 解 集 


% 结构 体 设置 


defaultopt = struct('PopulationType', 'doubleVector', http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 


de de de de Hh 


'PopInitRange', [], http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . 

'PopulationSize', '50 when numberOfVariables «- 5, else 200', http://www.hzcourse.com/resource/readBook?path- /openresources/teach POTE s. 6446/O0EBPS/Text/... 
'CrossoverFraction', 0.8, http://www.hzcourse. com/resource/roadBook?path-/openresources/teach . ebook/uncompressed/16446/OEBPS/Text/. . 多 交叉 因子 
'ParetoFraction', 0.35, http: / [www .hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . $ Pareto 因 子 


'MigrationDirection','forward', http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/1 6446/OEBPS/Text/ ss 
'MigrationInterval',20, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'MigrationFraction',0.2, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/0EBPS/Text/. 
'Generations', '200*numberOfVariables', http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/1 6446/OEBPS/Text/ 
'"TimeLimit', TRE http: //www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . MT 
'StallGenLimit', 100, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/1 6446/OEBPS/Text./ — 


子 


'"TolFun', 1e-4, http: / /www .hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 5 

'TolCon', 1e-6, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... る 约束 误 
'InitialPopulation', [], http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... E por n 
'InitialScores', [], http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... % 初始 种 群 的 函数 值 
'PlotInterval',1, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . . . 
'CreationFcn',8gacreationuniform, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... s 声明 函数 


'SelectionFcn', ((8selectiontournament,2]), http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'CrossoverFcn',(crossoverintermediate, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'MutationFcn',8mutationadaptfeasible, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'DistanceMeasureFcn',((8distancecrowding, 'phenotype']], http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 


'HybridFcn', [] , http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/.. 
'Display', 'final', http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'PlotFens', [], http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
'OutputFens', [], http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/ . 
'Vectorized', 'off', http: / wan. hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/1644 6/OEBPS /Text./ . 
"UseParallel', falso); % 是 否 使 用 并 行 计算 


如 果 输 入 小 于 等 于 1， 则 采用 系统 默认 设置 ， 具 体 程序 如 下 : 


if nargin -- 1 && nargout <= 1 && isequal (fun, 'defaults') 
= defaultopt; を 默认 设置 
return 
end 


丛 查 输入 变量 是 否 超出 函数 设置 变量 ， 具 体 程序 如 下 : 


try 
narginchk (1, 9) 7 
catch ME 
error (message (' 输 入 变量 个 数 有 误 ') ) 
end 


根据 输入 个 数 进行 默认 值 设 置 ， 具 体 程序 如 下 : 


if nargin < 9, options = []; 输入 个 数 小 于 9 个 ， options 
if nargin < 8, ub = []; % 输入 个 数 小 于 8 个 ， 取 值 上 限 ub 置 空 
if nargin < 7, lb = []; る 输入 个 数 小 于 7 个 ， 取 值 下 限 1b 置 空 
if nargin «6, beq = []; る 输入 个 数 小 于 6 个 ， 取 值 等 式 右 侧 系数 值 置 空 


if nargin «5, Aeq = []; 
% 输入 个 数 小 于 5 个 ， 取 值 等 在 全 和 人 四 
if nargin < 4, bineq = 
% 输入 个 数 小 于 6 个 ， Wu Ae NR Ros 
if nargin < 3, Aine 
+ MICI GA. MEARAN 


end 


end 
end 
end 
end 
end 
end 


る 如果 函数 fun 为 一 个 cel1 结 构 体 
if iscell(fun) 
FitnessFcn = fun(1); を 适应 度 函数 
else 
FitnessFcn = fun; 
end 


检查 适应 度 函 数 (目标 函数 ) 类 型 具体 程序 如 下 : 


if isempty(FitnessFcn) || -(isa(FitnessFcn,'inline') || isa(FitnessFcn, 'function handle')) 
error (message (' 目标 函数 结构 体 设置 错误 ') ) 


end 


变量 个 数 类 型 检查 ， 具 体 程序 如 下 : 


valid = isnumeric(nvars) && isscalar(nvars)&& (nvars > 0) http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
& 输入 变量 个 数 nvars 的 类 型 检查 て 
&& (nvars == floor (nvarS) ) 7 
if ~valid 
error (message (' 变 量 个 数 设置 错误 ') ) 
end 


user options = options; る 用 户 设 置 的 options 
defaultopt.PopInitRange = [0;1]; s 默认 初始 化 种 群 范围 


s 如 果 option 为 空 ， 则 采用 设置 
if ~isempty (options) && ~isa (options, 'struct') 
error (message (' 选 项 options 设 置 错误 ') ) ; 
elseif isempty (options) 
options - defaultopt; 


end 


$ 合并 参数 选项 设置 
options = gaoptimset (defaultopt, options); 


% 如 果 用 户 没有 给 定 初始 范围 ， 则 采用 系统 默认 个 体 范 围 设 置 
options.UserSpecPopInitRange = 1; 


$ 初始 化 unused variable for nonlcon 
nonlcon = []; 


验证 模型 约束 条 件 ， 具 体 程序 如 下 : 


[x, fval, exitFlag, output, population, scores, FitnessFcn, nvars, Aineq, bineq, Aeq, beq, lb, ub, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/164 
~, options] = gacommon (nvars, fun, Aineq, bineq, Aeq, beq, lb, ub, nonlcon, [], options,user options); 


if exitFlag « 0 $ Infeasibility 
return; 


end 


% 多 目标 优化 求解 器 
[ 


x,fval,exitFlag,output,population,scores] = gamultiobjsolve (FitnessFcn, 


Aineq, bineq, Aeq, beq, 1b, ub, options, output); 


nvars, http 


://www .hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEF 


其 中 对 于 模型 边界 检测 如 下 : 


function [lb,ub,msg,exitflag] = checkbound (lbin,ubin,nvars) 
$ 保证 LB <= UB 

初始 化 

msg = []; 


% Turn into colum vectors 


lb = lbin(:); s 列 向 量 
ub = ubin(:); s 列 向 量 
lenlb = length (1b); を 列 向 量 
1enub = length (ub); s 列 向 量 


$ Check maximum length 
if lenlb » nvars 
warning (message (' 变 量 取 值 范围 长 度 大 于 变量 个 数 ') ) ; 
lb = lb(1:nvars); 
lenlb - nvars; 
elseif lenlb « nvars 
lb = [lb; -inf*ones (nvars-lenlb,1)]; 
lenlb = nvars; 
end 


if lenub » nvars 
warning (message (' 变 量 取 值 范 围 长 度 大 于 变量 个 数 ') ) ; 
ub = ub(1:nvars); 
lenub = nvars; 
elseif lenub < nvars 
ub = [ub; inf*ones (nvars-lenub,1)]; 
lenub = nvars; 
end 


S 检验 边界 可 行 性 
len = min (lenlb, lenub); 
if any( lb( (1:len)' ) > ub( (1:len)' ) ) 
count = full(sum(lb»ub)); 
msg=sprintf([' 取 值 变量 下 限 大 于 上 限 ， 请 检验 '] ,count) 7 
exitflag = -2; 
end 


% 检测 上 下 限 的 范围 


if any(eq(ub, -inf)) 上 限 为 -inf (MER) 


op 


error (message (" 上 限 有 问题 ') ) : 

elseif any(eq(lb,inf)) ` を FIRA inf (EF) 
error (message (' 下 限 有 问题 ') ) ; 

end 


通过 边界 检查 ， 确 保 模型 下 限 LB 小 于 等 于 模型 上 线 UB。 


接 下 来 检测 个 体 是 否 满 足 模型 约束 条 件 ， 这 部 分 是 整个 函数 的 核心 ， 主 要 用 于 求解 模型 的 合适 变量 值 ， 具 体 程序 如 下 : 


unction [x, fval, exitFlag, output, population, scores,FitnessFcn,nvars,Aineq, bineq, Aeq, beq, lb, ub, NonconFcn, option s,Iterate,type] = gacommon (nvars,fun, Aineq, bineq, Aeq, beq, lb, ub, 


% 检测 个 体 是 否 满足 约束 条 件 
% 设 定 个 体 类 型 


stringSet ('PopulationType',options.PopulationType, ('doubleVector', 'custom', 'bitString']); 


确定 研究 问题 的 类 型 ， 非 线性 或 者 是 带 约束 和 不 带 约束 ， 具 体 程序 如 下 : 


type = 'boundconstraints'; % 个 体 是 有 取 值 范围 的 ， 是 有 边界 的 ，[-b, ub] 
output.problemtype = type; 

$ Remember the random number state used 

dflt = RandStream.getGlobalStream; 

output.rngstate = struct('state',(dflt.State], 'type',(dflt.Type]); 
$ 初始 化 other fields of output 

output.generations ; 

output.funccount 0; 

output.message = ''; 


变量 取 值 边界 检验 ， 具 体 程序 如 下 : 


[lb, ub, msg, exitFlag] = checkbound (lb, ub, nvars); 
$ 线性 约束 检验 ， 并 correction 
[ 


Iterate.x,Aineg,bineq, Aeq, beq, lb, ub, msg, exitFlag] = http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OEBPS/Text/... 
preProcessLinearConstr (Iterate.x, Aineq, bineq, Aeq, beq, 1b, ub, nvars, type, options.Verbosity); 


验证 初始 化 产生 的 个 体 是 否 满足 约束 条 件 ， 具 体 程序 如 下 : 


if ~isempty (options .InitialPopulation) && ~strcmp (type, 'unconstrained') 


pop = size(options.InitialPopulation, 1); 
feasible = true(pop,1); 
for i = l:pop 


feasible(i) = isTrialFeasible (options.InitialPopulation(i,:) ',Aineq, bineq, Aeq, beq, lb, ub, options .TolCon) ; 


end 

options.InitialPopulation (-feasible, :) 

try $ InitialScores may not be present 
options.InitialScores (-feasible, : ) 

catch 

end 


Uu 


IE 


end 


る 如 果 初 始 化 的 个 体 为 空 且 无 整数 约束 


if isempty(options.InitialPopulation) && ~isempty (Iterate.x) && isempty (intcon) 


options.InitialPopulation(1,:) = Iterate.x'; 
end 


检验 非 线 性 约束 nonlinear constraints, 具体 程 序 如 下 : 


[LinearConstr, Iterate,nineqcstr,neqcstr,ncstr] = constrValidate (NonconFcn, Iterate,Aineq, bineq, Aeq, beq, lb, ub, int con,type,options); 


options.LinearConstr = LinearConstr; 


$ 增加 整 型 变量 选项 integer constraint field 
options.IntegerVars = []; 


% 确保 种 群 个 体 取 值 在 取 值 范 围 内 
options = checkPopulationInitRange (lb, ub, options); 


对 于 输入 的 变量 、 设 置 的 已 知 参数 以 及 系统 的 默认 设置 ， 采 用 validate 函 数 进行 检验 ， 具 体 程序 如 下 : 


function [options, gLength, fitness, nonlcon] = validate(options,type,gLength, fitness,nonlcon,user options) 
% 输入 个 数 小 于 6 个 ， 默 认 设置 u 
if nargin « 6 
user options - options; 
end 
を 确保 options 设 置 的 格式 正确 


user options = gaoptimset (user options); 


保证 种 群 个 体 类 型 一 致 性 具体 如 下 : 


stringSet ('PopulationType',options.PopulationType, ('doubleVector', 'custom', 'bitString']); 


是 否 显示 和 迭代 输出 信息 等 ， 具 体 程序 如 下 : 


switch options.Display 
case 'final' 
options.Verbosity = 1; 
end 


validNumberofVariables (gLength) 


检验 遗传 算法 多 目标 求解 的 交叉 算 子 、 变 异 算 子 ， 具 体 程序 如 下 : 


[options.CreationFcn, options.CreationFcnArgs] = functionHandleOrCell 
('CreationFcn',options.CreationFon); 


[options.CrossoverFcn,options.CrossoverFcnArgs] = functionHandleOrCell 
('CrossoverFcn',options.Crossover Fc n); 
[options.SelectionFcn,options.SelectionFcnArgs] = functionHandleOrCell 
('SelectionFcn',options.SelectionFcn); 
[options.MutationFcn,options.MutationFcnArgs] = functionHandleOrCell 

( 


'MutationFcn',options.MutationFcn); 


% 检查 变量 的 取 值 上 下 限 的 维度 是 否 统一 


options = rangeCorrection (gLength, options); 


确定 变量 的 取 值 范围 上 下 限 的 维度 是 否 一 致 ， 具 体 程序 如 下 : 


function options = rangeCorrection (nvars, options) 
% 确定 变量 的 取 值 范围 
Range = options.PopInitRange; 


lb = Range (1, :); s 下限 

lb = 1b(:); % 转 为 列 向 量 
lenlb = length (1b); 当 下 限 变 量 个 数 
ub = Range (2, :); 3 EIR 

ub = ub(:); $ 转 为 列 向 量 
lenub = length (ub); も 上 限 变量 个 数 


% 检查 上 下 限 变量 的 个 数 是 否 一 致 
if lenlb > nvars 
lb = lb(1:nvars); 
elseif lenlb « nvars 
lb = [lb; 1b(end) *ones (nvars-lenlb,1)]; 
end 


if lenub » nvars 

ub = ub(1:nvars); 
elseif lenub « nvars 

ub = [ub; ub(end)*ones (nvars-lenub,1)]; 
end 


if any( lb > ub ) 


count - nnz(lb » ub); 

error (message (' 变 量 的 上 下 限 设 置 维度 不 一 致 ! ! ! ',count)); 
end 
options.PopInitRange = [lb,ub]'; % 变量 的 取 值 范围 


对 于 validate 函 数 ， 在 保证 用 户 输入 正确 的 前 提 下 ， 不 用 去 思考 该 函数 的 用 法 以 及 函数 每 个 代码 的 含义 。 


进行 种 群 之 间 Pareto 计 算 ， 去 除 相关 种 群 ， 保 留 种 群 个 体 间 相 关 性 较 小 的 个 体 ， 即 去 除 宛 余 的 同类 型 个 体 ， 具 体 程序 如 下 : 


function [pop,score,nonDomRank,Distance] = rankAndDistance (pop,score,options, nParents) 
% rankAndDistance 该 函数 用 于 检测 每 个 个 体 之 间 的 距离 
% 如 果 输 入 为 4 个 ， 即 默认 mParents 
if nargin < 4 
nParents = size (pop,1); 
end 
$ Pareto 系 数 
ParetoFraction = options.ParetoFraction; 
nScore = size (score, 2) ; EN 
if nScore — % 单 目标 
nonDomRank = nonDominatedRank (score, nParents); 
% 去 除 为 无 穷 大 的 目标 值 
index = isinf (nonDomRank); 
nonDomRank(index) = []; 


pop (index, :) = []; 
score (index, :) = []; 
else 
nonDomRank = nonDominatedRank (score); 名 多 目标 


end 

popSize = size(pop,1); 

Distance zeros (popSize,1); 

numRank = unique (nonDomRank) : % unique 函 数 用 于 获取 nonDomRank 中 出 现 不 同 的 数字 


$ Compute crowding distance for individuals in each front 
for i - numRank' 

% Get individual from each front 

index = (nonDomRank -- i); 

Distance (index) = options.DistanceMeasureFcn (pop (index, :), score (index, : ) , options,options.DistanceMeasureFcnArgs(:]); 
end 


% 如 果 种 群 之 间 没有 结合 ， 则 不 需要 去 除 种 群 
if nParents == popSize 
% do nothing 
else % 去 除 相关 种 群 
[pop, score, nonDomRank, Distance] = trimPopulation (pop, score, nonDomRank, Distance, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/1644 
popSize,nScore, nParents, ParetoFraction); 
end 


NSGA- 工 算法 进行 个 体 的 更 新 操作 ， 具 体 程序 如 下 : 


unction state = stepgamultiobj (subpopIndex, thisPopulation, options, state, GenomeLength, FitnessFcn) 
STEPGAMULTIOBJ perform one step using a variant of NSGA-II algorithm 
NSGR-II 算 法 进行 个 体 的 更 新 求解 


de oe Hh 


popSize = size(state.Population (thisPopulation, :),1); を 种 群 大 小 
population = state.Population (thisPopulation, :); $ 种 群 

score state.Score (thisPopulation, :); 适应 度 值 

rank state.Rank (thisPopulation, :); を 排序 

Distance state.Distance (thisPopulation, :); も 种 群 间距 离 
Score old = score; を 上 一 代 适 应 度 值 
numObj = size(score,2); を 多 目标 个 数 


% 选择 交叉 个 体 数量 

nXoverKids = round(options.CrossoverFraction * popSize); 
% IRI PEG EH RTE 

nMutateKids = popSize - nXoverKids; 

% 则 进行 交叉 变异 操作 的 父 代 个 体 数量 


nParents = 2 * nXoverKids + nMutateKids; 


$ Selection. 
parents = feval(options.SelectionFcn, [-rank, Distance] , nParents, options, options.SelectionFcnArgs(:]); 


% 随机 序列 选择 父 代 个 体 


parents = parents (randperm (length (parents))); 


% 记录 每 一 代 父 代 样 本 信息 


state.Selection = [parents']; 


交叉 算 子 产生 新 的 个 体 ， 具 体 程序 如 下 : 


xoverKids = feval(options.CrossoverFcn,parents (1 : (2 * nXoverKids)),options, GenomeLength, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompresse 
FitnessFcn, score, population, options.CrossoverFcnArgs(:]); 


变异 算 子 产生 新 的 个 体 ， 具 体 程序 如 下 : 


mutateKids = feval(options.MutationFcn,parents((1 + 2 * nXoverKids):end), options,GenomeLength, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncomr 
FitnessFcn, state, score, population, options.MutationFcnArgs(:]); 


る 则 下 一 代 种 群 为 nextPopulation 
nextPopulation = [xoverKids ; mutateKids ]; 


进行 hextPopulation 的 适应 度 计算 ， 具 体 程序 如 下 : 


if strcmpi (options.Vectorized, 'off') 

nextScore = fcnvectorizer (nextPopulation, FitnessFcn,numObj,options. SerialUserFcn); 
else 

nextScore - FitnessFcn (nextPopulation); 
end 


更 新 当前 的 种 群 ， 具 体 程序 如 下 : 


State.Population(thisPopulation,:) = nextPopulation; 
% 更 新 当前 的 种 群 的 适应 度 值 
state.Score(thisPopulation,:) = nextScore; 


$ Update function evaluation counter 
state.FunEval = state.FunEval + size(nextScore,1); 


% 合并 当前 代 个 体 以 及 下 一 代 个 体 

population = [population;nextPopulation]; 
% 合并 当前 代 个 体 以 及 下 一 代 个 体 的 适应 度 值 
Score = [score; nextScore]; 


根据 拥挤 度 排序 当前 的 Population， 选 取 前 一 半 个 体 ， 具 体 程序 如 下 : 


[state.Population (thisPopulation, :),state.Score (thisPopulation,:),state. Rank (thisPopu1ation, : ) , State . Di stance (thisPopulation, :)] = rankAndDistance (population, score, options, pc 


计算 Pareto 前 沿 面 的 个 体 平均 距离 以 及 扩散 距离 ， 具 体 程序 如 下 : 


[state.AverageDistance (subpopIndex), state.Spread(state.Generation+1,subpopIndex)] = distanceAndSpread (state.Distance (thisPopulation, :),state.Rank(thisPopulation,:), state.Scc 


根据 当前 代 的 种 群 个 体 值 ， 进 行 种 群 的 剔除 操作 ， 即 按照 种 群 拥挤 度 值 删除 不 服从 Pareto 前 沿 面 分 布 的 种 群 ， 具 体 程序 如 下 : 


function [pop,score,nonDomRank,crowdingDistance] = trimPopulation (pop, score,nonDomRank,crowdingDistanc e, DopS1ze, nScore, nParents, ParetoFraction) 


% 去 掉 不 服从 Pareto 前 沿 面 分 布 的 种 群 


if nScore > 1 $ multi-objective 多 目标 分 析 


[pop, score, nonDomRank, crowdingDistance,popSize] = frontDiversity (pop, score,nonDomRank,crowdingDist ance, popSize,nParents, ParetoFraction); 
end 
% 按照 距离 拥挤 度 进 行 个 体 吻 除 
[pop, score, nonDomRank, crowdingDistance] = distanceDiversity (pop, score, nonDomRank,crowdingDistance, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/ur 


nParents,popSize); 


当 非 支配 排序 解 多 于 父 代 种 群 解 时 ， 移 除 多 余 的 部 分 解 ， 具 体 程序 如 下 : 


function [pop, score, nonDomRank, crowdingDistance] = distanceDiversity (pop, score,nonDomRank, http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompress 
crowdingDistance, nParents,popSize) 


$ Remove indivduals from last front if length (nonDomRank) is greater than nParents 


to remove = length(nonDomRank) - nParents; 

if to remove » 0 
[unused, I] = sortrows ([nonDomRank, crowdingDistance], [1,-2]); 
indiv to remove = I(popSize:-1:(popSize - to remove + 1)); 
pop(indiv to remove,:) = []; 
Score(indiv to remove,:) = []; 


nonDomRank(indiv to remove) = []; 
crowdingDistance (indiv to remove) = []; 


function [pop, score, nonDomRank, crowdingDistance,popSize] = frontDiversity (pop,score,nonDomRank,crowding Distance, popSize,nParents, ParetoFraction) 
numRank = unique (nonDomRank) : $ numRank will be sorted 
$ Trim front size based on a pre-determined count 
totalNumOfRank = length (numRank); 
retainIndiv = zeros(totalNumOfRank,1); $ Individuals to be retained in each front 
availableIndiv = zeros(totalNumOfRank,1); $ Available individuals in each front 
$ First rank is treated differently for number of desired individuals 
availableIndiv(1) = nnz (nonDomRank == 1); 
allowedIndiv = ceil (nParents*ParetoFraction); 
if allowedIndiv <= availableIndiv (1) 
retainIndiv(1) = allowedIndiv; 
else 
retainIndiv(1) = availableIndiv (1); 
end 


$ If there are more than one fronts then we calculate the maximum number of 


$ individuals we can retain 
if totalNumOfRank » 1 
gpRatio = 0.8; $ Geometric progression ratio 
carryover - 0; 
for i = numRank (2:end) ' 
availableIndiv(i) = nnz(nonDomRank == i); 
$ allowedIndiv redcuces as geometric progression 
allowedIndiv = ceil(nParents*gpRatio^ (1-1 ) * ( (1-gpRatio) / (1-gpRatio^ totalNumOfRank))) + carryover; 
if allowedIndiv <= availableIndiv (i) 


retainIndiv(i) = allowedIndiv; 
else 
retainIndiv(i) = availableIndiv (i); 
carryover - allowedIndiv - availableIndiv (i); 
end 
end 
end 


$ Adjust retainIndiv if required 
front - totalNumOfRank; increase - 0.10; 
while sum(retainIndiv) <= ceil (nParents) 
if retainIndiv (front) < availableIndiv (front) 
retainIndiv(front) = min(availableIndiv (front),ceil(retainIndiv (front)* (1+inocrease) ) ) ; 
increase - increase*0.95; 
end 
if front 一 
front = totalNumOfRank; 
increase - 0.10; 
else 
front - front - 1; 
end 
end 


for i = numRank' 

popIndices = l:popSize; 

index = (nonDomRank == i); 

if retainIndiv(i) < nnz (index) % We need to trim the front 
if retainIndiv(i) = 

continue; 

end 
% Select individuals after a tournament selection 
% Choose the players for each round 
playerlist = popIndices (index); 
losers = tournament (playerlist, crowdingDistance, retainIndiv (i)); 
pop(losers,:) = []; 
Score(losers,:) = []; 
nonDomRank(losers) = []; 
crowdingDistance (losers) = []; 
popSize = size(score,1); 

else 
% No need to modify the front; do nothing 

end 

end 


锦标 赛 淘汰 机 制 tournament 具 体 程序 如 下 : 


function losers = tournament (playerlist, expectation, allowed) 
$ tournament between players based on their distance values 
[sortedExpectation,sortedIndex] = sort (expectation (playerlist), 'descend'); 


losers = playerlist (sortedIndex (allowed-*1:end)); 


针对 多 目标 优化 分 析 ， 设 计 GUI 如 图 15-11 所 示 。 


- LE | 
文件 () S86 EEV 5U IAM 帮助 (H) | 
OON xa e #& EB á SES |p 


ParetoFraction 0.3 [mu 
种 群 数 重 10 P Acity. Fun 
XE 200 
交叉 概率 0.9 | rastrigin func 
变异 概率 0.05 


回 
D 


mf || mr 


| 最 小 停止 误差 TolFun 0.00000000000C 
| | 模型 求解 


最 小 值 最小 人 


4 ト 


标签 : figure1 当 


点 : [323, 354] 位置 : [520, 383, 884, 417] 


图 15-11 多 目标 寻 优 GUI 界面 


在 Ackley_Fun 按 钮 下 写 入 以 下 代码 : 


£1 
TZ 


get (handles .checkbox1, 'Value'); 
get (handles .checkbox3, 'Value'); 


op op 
RARA 


if fl--1 
绘制 Ackley 函 数 图 形 
x=[-8:0.1:8]; 
yex; 
[X, Y] -meshgrid (x, y) ; る 网 格 化 
[row,col]-size(X); 
for l-1:col 
for h-l:row 


z (h, 1) -Ackley ([X (h, 1) , Y (5,1) ]) ; る 适应 度 值 


end 

end 
axes (handles . axes1 ) る 在 轴 1 下 显示 图 像 
mesh (X, Y, z) 7 名 显示 图 像 
shading interp $ 消 隐 

else 
axes (handles .axes1 ) を 在 轴 1 下 显示 图 像 
mesh([], D], 27 % 显示 图 像 


end 


function y-Ackley (x) 
$ AckleyH 
[ 


pg 
输入 x, 给 出 相应 的 y 值 ,在 x=(0, 0,.…, 0) ?处 有 全 局 极 小 点 0, 为 得 到 最 大 值 ， 返 回 值 取 相反 数 ?? 
row, col]=size (x); 
if row>1 
error (' 输 入 的 参数 错误 ') 7 


en 
y=-20*exp (-0.2*sqrt ( (1/col) * (sum (x. ^2) ) ) ) -exp ( (1/co1 ) *sum (cos (2*pi.*x) ) ) +exp (1) 420; 


在 rastrigin_func 按 钮 下 写 入 以 下 代码 : 


fl = get(handles.checkboxl, 'Value'); % 获取 复 选 框 1 数值 
f2 = get(handles.checkbox3, 'Value'); $ 获取 复 选 框 3 数值 
if f2==1 

s 绘制 Rastrigin 函 数 图 形 

0 $x 

y= xF % y 

[X,Y] = meshgrid(x, y) ; る 网 格 化 

[row,col] = size(X); % HE 

for 1 = 1 :col 

for h= 1 :row 
z(h,l) = Rastrigin([X(h, 1), Y h,1) ) ; % 适应 度 函 数 
end 

end 

axes (handles.axes2) $ 在 轴 2 下 显示 图 像 

mesh (X, Y, z) ; % 显示 图 像 

shading interp $ 消 隐 
else 

axes (handles.axes2) $ 在 轴 2 下 显示 图 像 

mesh([], (0, ED ; $ 显示 图 像 
ern 


function y = Rastrigin(x) 
る Rastrigin 函 数 
% 输入 x, 给 出 相应 的 y 值 ,在 x = ( 0 , 0 ,.., 0 ) 处 有 全 局 极 小 点 0 
[row,col] = size(x); 
if row > 1 
error( ' 输入 的 参数 错误 ' ); 
end 
y = sum(x.^2 - 10 * cos( 2 * pi * x) * 10 ); 
Y =y 


rastrigin_func 和 Ackley_Fun 按 钮 的 作用 是 ， 用 户 可 以 选择 单 目标 进行 优化 ， 也 可 以 同时 选择 两 个 目标 进行 优化 分 析 。 


具体 运行 结果 如 图 15-12 ~ 图 15-14 所 示 。 


ParetoFraction 0.3 
种 群 数量 10 
XN 200 


交叉 概率 09 
变异 概率 0.05 


最 小 停止 误差 TolFun 0.00000000000C 


模型 求解 


退出 系统 


图 15-12 ” 复 选 框 1 被 选中 


ParetoFraction 


种 群 数量 

和 迭代 次 数 

交叉 概率 | 
变异 概率 0.05 


最 小 停止 误差 TolFun 0.00000000000C 


图 15-13 ”两 个 复 选 框 同时 选中 


ParetoFraction 
种 群 数 量 
交叉 概率 
变异 概率 005 | 


最 小 停止 误差 TolFun 0.000000000000 


图 15-14 £ k4E34kik F 


如 图 15-12~ 图 15-14 所 示 ， 当 复 选 框 被 选中 时 ， 说 明 该 函数 句柄 有 效 ， 否 则 无 效 。 


例如 ， 当 rastrigin_func 和 Ackley_Fun 按 钮 同时 选中 ， 表 示 目 标 函数 为 两 个 。 当 Ackley_Fun 按 钮 被 选中 时 ， 则 目标 函数 为 Ackley_Fun 函 数 。 当 rastrigin_func 按 钮 被 选中 时 ， 则 目标 函数 为 
rastrigin_func 函 数 。 


目标 函数 代码 如 下 : 


function fitnessfcn-nsga fitness GUI (x) 
global f1 f2 
if fl--1 & f2--1 

る Rckley 函 数 


fitnessfcn(1) = -20*exp(-0.2*sqrt ( (x (1) ^2+x (2) ^2) /2) ) -exp ( (cos (2*pi*x(1)) +cos (2*pi*x (2) ))/2)+20+2.71289; 
$ Rastrigin 函 
fitnessfcn(2) = sum(x .^ 2 - 10 .* cos(2 .* pi .* x) * 10, 2); 


end 
if fl—1 & f2==0 
る Rckley 函 数 
fitnessfcn(1) = -20*exp(-0.2*sqrt ( (x (1) ^2+x (2) ^2) /2) ) -exp ( (cos (2*pi*x(1)) +oos (2*p1*x (2) ) ) /2) +20+2.71289: 
end 
if fl--0 & f2==1 
$ Rastrigin 函 数 
fitnessfcn(1) = sum(x .^ 2 - 10 .* cos(2 .* pi .* x) + 10, 2); 
end 


end 


接 下 来 在 “模型 求解 ”按钮 下 写 入 多 目标 求解 主 程序 ， 具 体 程序 如 下 : 


function pushbuttonl Callback(hObject, eventdata, handles) 


warning off % 取消 警告 

feature jit off s 加 速 通道 

global fl f2 $ 全 局 变量 

fl = get(handles.checkboxl, 'Value'); $ 获取 复 选 框 1 数值 
f2 = get(handles.checkbox3, 'Value'); $ 获取 复 选 框 3 数值 


ParetoFraction = str2num( get (handles.editl,'string') ) 7 

+ ATARA 

PopulationSize = str2num( get (handles.edit2,'string') ); 
s MeL UTR 

Generations = str2num( get (handles.edit3, "string') ); 

% 获取 可 编辑 文本 数值 

CrossoverFraction = str2num( get (handles.edit4, 'string') ); 
% 获取 可 编辑 文本 数值 

MigrationFraction = str2num( get (handles.edit5,'string') ); 
% 获取 可 编辑 文本 数值 

TolFun = str2num( get (handles.edit6, 'string') ) 7 


nvars = 2; $ 未 知 数 个 数 
lb-[-10 , -10 ]; % 下 限 

0, 10]; 3 ER 
A-[]; b=[]; $ 不 等 式 约束 


Aeq-[]; beq=[]; s 等 式 约束 

options-gaoptimset ('ParetoFraction', ParetoFraction , 'PopulationSize',PopulationSize,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/1644€ 
'CrossoverFraction',CrossoverFraction, 'MigrationFraction', MigrationFraction,http://www.hzcourse.com/resource/readBook?path-/openresources/teach ebook/uncompressed/16446/OF 
'Generations',Generations, 'StallGenLimit',100, 'TolFun', To1Fun, 'PlotFcns', @gaplotpareto) ; 

[x,fval]-ga multiobj(8(x)nsga fitness GUI (x),nvars,A,b, Aeq, beq, lb, ub, options); 


if fl--1 & f2 
る RAckley 函 数 
set (handles n 'string',fval(end,1)) 
$ Rastrigin 函 
set (handles.edit8, 'string',fval (end, 2) ) 
end 
if fl—1 & f2==0 
る Rckley 函 数 
set (handles .edit7, 'string', fval (end, 1 ) ) 
る Rastrigin 函 数 
set (handles.edit8, 'string',[]) 
end 
if f2--1 & fl==0 
る Rckley 函 数 
set (handles.edit7, 'string',[]) 
る Rastrigin 函 数 
set (handles.edit8, 'string',fval (end,1)) 
end 


运行 GUI， 得 到 如 图 15-15 ~ 图 15-17 所 示 结 果 。 


ParetoFraction 
种 群 数 量 
和 迭代 次 数 
交叉 概率 
变异 概率 0.05 


-10 -10 
-0.00539183 


最 小 值 


最 小 停止 误差 TolFun (0.00000000000C€ 


模型 求解 


15-15 Ackley 单 目标 求解 


ParetoFraction | 03 | pm 


种 群 数量 Ackley. Fun 
XI 
交叉 概率 | 
SRM 0.05 


最 小 停止 误差 TolFun 0.000000000000 


图 15-16 ”Rastrigin 单 目标 求解 


ParetoFraction | 
种 群 数 量 [V] Ackey. Fun 
XAR 


交叉 概率 | mp 
变异 概率 


最 小 停止 误差 TolFun 0.00000000000C 


TA 
-0.00539183 | 


最 小 值 


图 15-17 多 目标 求解 


相应 的 Pareto 解 动态 图 如 图 15-18 所 示 。 
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15-18 相应 的 Pareto 解 
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